Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
chart nach Powerpoint export funktioniert nicht richtig
zurück: Häufigkeit feststellen weiter: Frage zur Wertfeld einstellungen innerhalb einer Pivot Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Apr 2009, 10:22
Rufname:

chart nach Powerpoint export funktioniert nicht richtig - chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Moin Forum,

ich habe eine Funktion gefunden, mit dem ich ein Excel-Chart nach Powerpoint exportieren kann.
Diese funktioniert auch aber nicht ganz korrekt, da alle grafischen Darstellungen (ob chart oder Grafik) die sich auf dem Excel-Sheet befinden, exportiert werden. Zudem werden slides im Powerpoint Dokument ganz am Ende angelegt, die einen sehr langen breiten grauen Strich beinhalten. Es sind insgesamt 3 slides, die nicht dorthin gehören.

Im Moment lösche ich diese einfach per VBA, aber das muss auch besser gehen.

Die Funktion erstellt in der Regel für jedes Chart ein eigenes Slide im selben PowerPoint-Dokument.

Ist es irgendwie möglich diese Funktion so zu überarbeiten, dass nur die Charts aus dem Excel-Sheet selektiert und exportiert werden?
Würde mich sehr freuen, wenn jemand diese Funktion für mich überarbeitet oder mir Tipps und Hinweise gibt, sodass ich das machen kann.

Hier die Funktion, wie sie im Moment aussieht:

Code:

Sub PowerPointErzeugen_Click()

Dim Grafik As Shape
Dim PP As powerpoint.Application
Dim PP_Datei As powerpoint.Presentation
Dim PP_Folie As powerpoint.Slide

On Error GoTo Zuruecksetzen

Worksheets("Projektplan").Select

Set PP = CreateObject("Powerpoint.Application")
With PP
  .Visible = True
  .Presentations.Add
End With

Set PP_Datei = PP.ActivePresentation

For Each Grafik In ActiveSheet.Shapes
 'neue Folie einfügen
  PP.ActivePresentation.Slides.Add 1, ppLayoutBlank
  Set PP_Folie = PP_Datei.Slides(1)
 'kopieren
  Grafik.CopyPicture
 
 'einfügen
  PP_Folie.Shapes.Paste
 
      PP_Folie.Select
    'Bereich einfügen und OLE Verknüpfung herstellen = Link
    With PP.ActiveWindow
        .ViewType = ppViewSlide
        '.View.PasteSpecial DataType:=ppPasteOLEObject, link:=msoTrue
    End With

      With PP_Folie.Shapes.Range
        'Oberer Rand 1 cm unter Standardtitel
        .Top = 150
        'Linker Rand 1.5 cm von linkem Folienrand
        .Left = 35
        'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
        .Width = 650
        'Bei Bedarf Höhe noch einstellen
        'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
        'Die Breite verändert sich dann
        '.Height = 240
    End With

 
Next


PP_Datei.Slides(2).Delete
PP_Datei.Slides(3).Delete
PP_Datei.Slides(2).Delete

Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set PP = Nothing

Exit Sub

Zuruecksetzen:
Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set PP = Nothing
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub



Besten Dank für jegliche Hilfe,

Centauro
Case
Coder


Verfasst am:
22. Apr 2009, 07:27
Rufname: Case
Wohnort: Schwäbisch Hall


AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hallo, Razz

ja, das ist klar. Du gehst alle Shapes auf dem Tabellenblatt durch - also auch Schaltflächen und dergleichen. Mach einfach eine Abfrage, ob das Shape ein Diagramm ist:

Code:
'.......
For Each Grafik In ActiveSheet.Shapes
    If Grafik.Type = msoChart Then
'.......
    End If
Next
'.......


Dann kannst Du die drei Löschzeilen entfernen.

Servus
Case

_________________
Servus
Case
xlDominik
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 08:18
Rufname: Dominik

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hi,

die Qualität der Grafiken auf Deiner Folie wird besser, wenn Du die Größe der Shapes schon in Excel auf die gewünschte Größe bringst und diese dann mittels .CopyPicture nach PowerPoint.

Viele Gute Tipps und jede Menge Wissen (u.a.) zu diesem Thema findest Du auf der Seite von Excel MVP Jon Peltier: http://peltiertech.com/Excel/XL_PPT.html

Gruß,
Dominik.
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 09:18
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

besten Dank für Eure super Tipps.

Eine Frage noch:

Wie kann ich denn eine Vorlage in meinen Code einbauen, die einen Titel und ein paar andere Texte beinhaltet? In diese Vorlage sollen dann die ChartObjekte eingefügt werden.

Ich würde diese Vorlage dann immer im selben Format allerdings mit sich immer wieder ändernden Texten ablegen und die Charts dann automatisiert über VBA einfügen wollen.

Ist sowas möglich?

Besten Dank nochmals für Eure Tipps und Hinweise.

Viele Grüße,

Centauro
Case
Coder


Verfasst am:
22. Apr 2009, 09:55
Rufname: Case
Wohnort: Schwäbisch Hall


AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hallo, Razz

nimm in dem Block:

Code:
With PP
  .Visible = True
  .Presentations.Add
End With


statt:
Code:
.Presentations.Add


sowas:
Code:
.Presentations.Open "C:\DeinePraesentation.ppt"


Servus
Case

_________________
Servus
Case
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 10:00
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

kann man nicht den selben Pfad nehmen wie die Exceldatei, ohne eine Pfadangabe zu machen?

Ich habe jetzt sowas gemacht:

Code:


.Presentations.Open("Master.ppt")



aber vba springt immer wieder raus.
Case
Coder


Verfasst am:
22. Apr 2009, 10:11
Rufname: Case
Wohnort: Schwäbisch Hall

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hallo, Razz

schreibe es so:

Code:
.Presentations.Open ThisWorkbook.Path & "\DeinePraesentation.ppt"


Servus
Case

_________________
Servus
Case
xlDominik
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 10:19
Rufname: Dominik

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Probier's mal mit ApplyTemplate:


Code:
    Dim pptApp                  As PowerPoint.Application
    Dim pptPres                 As PowerPoint.Presentation
    Dim pptSlide                As PowerPoint.Slide
 
    ' 1. PowerPoint-Applikation
    On Error Resume Next
        ' Ist PowerPoint bereits geöffnet?
        Set pptApp = GetObject(, "PowerPoint.Application")
        If pptApp Is Nothing Then
            ' PowerPoint ist nicht geöffnet -> PowerPoint neu öffnen
            Set pptApp = CreateObject("PowerPoint..Application")
            pptApp.Visible = True
        End If
    On Error GoTo 0
   
 
    ' 2. Präsentation und Folie
    ' Falls bereits eine Präsentation geöffnet ist, diese verwenden und neue Folie hinzufügen
    ' Falls keine Präsentation geöffnet, neue Präsentation erstellen, die vom Benutzer gewünschte Vorlage verwenden und neue Folie hinzufügen
    If pptApp.Windows.Count = 0 Then
        ' Neue Präsentation erstellen und vom User in Options eingestellte Vorlage verwenden
        Set pptPres = pptAppPresentations.Add              ' neue Präsentation
        Set pptSlide = pptPres.Slides.Add(1, ppLayoutText)  ' neue leere Folie erstellen
        pptPres.ApplyTemplate Filename:="C:\Vorlage\DeineVorlage.pot"
    Else
        ' Es ist bereits mindestens eine Präsentation geöffnet
        ' --> diese Präsentation verwenden und neue Folie hinzufügen
        Set pptPres = pptApp.ActivePresentation
        Set pptSlide = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutText)
    End If ' von pptApp.Windows.Count = 0


Gruß,
Dominik.
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 11:16
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Vielen Dank,

mit meiner Vorlage klappts soweit mit einer Einschränkung.

Wenn ich das Chart einfüge, dann wird der gesamte Text in meiner Vorlage mittig versetzt, also in die Mitte der Folie verschoben und durch das Chart überklatscht.

Das hängt wohl mit folgenden Zeilen zusammen:

Code:

    PP_Folie.Select
    'Bereich einfügen und OLE Verknüpfung herstellen = Link
    With pp.ActiveWindow
        .ViewType = ppViewSlide
        '.View.PasteSpecial DataType:=ppPasteOLEObject, link:=msoTrue
    End With

      With PP_Folie.Shapes.Range
        'Oberer Rand 1 cm unter Standardtitel
        .Top = 150
        'Linker Rand 1.5 cm von linkem Folienrand
        .Left = 35
        'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
        .Width = 650
        'Bei Bedarf Höhe noch einstellen
        'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
        'Die Breite verändert sich dann
        '.Height = 240
    End With



Wie kann ich es ermöglichen, dass meine Vorlage erhalten bleibt und der Text in der Vorlage nicht verschoben wird und das eingefügte Chart eben inmitten dieser Vorlage gesetzt wird ohne den bereits vorhandenen Text zu verschieben oder zu berühren?

Mein Code sieht momentan so aus:

Code:

Sub PowerPointErzeugen_Click()

Dim Grafik As Shape
Dim pp As powerpoint.Application
Dim PP_Datei As powerpoint.Presentation
Dim PP_Folie As powerpoint.Slide
'Dim Path As String

On Error GoTo Zuruecksetzen
   
Worksheets("Projektplan").Select

Set pp = CreateObject("Powerpoint.Application")
Path = ActiveWorkbook.Path

With pp
  .Visible = True
 ' .Presentations.Add
 .Presentations.Open (Path & "\Master.ppt")
End With

Set PP_Datei = pp.ActivePresentation

For Each Grafik In ActiveSheet.Shapes
 'neue Folie einfügen
 If Grafik.Type = msoChart Then
     'pp.ActivePresentation.Slides.Add 1, ppLayoutBlank
     Set PP_Folie = PP_Datei.Slides(1)
    'kopieren
     Grafik.CopyPicture
  PP_Folie.Shapes.Paste
  End If
 'einfügen
   
      PP_Folie.Select
    'Bereich einfügen und OLE Verknüpfung herstellen = Link
    With pp.ActiveWindow
        .ViewType = ppViewSlide
        '.View.PasteSpecial DataType:=ppPasteOLEObject, link:=msoTrue
    End With

      With PP_Folie.Shapes.Range
        'Oberer Rand 1 cm unter Standardtitel
        .Top = 150
        'Linker Rand 1.5 cm von linkem Folienrand
        .Left = 35
        'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
        .Width = 650
        'Bei Bedarf Höhe noch einstellen
        'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
        'Die Breite verändert sich dann
        '.Height = 240
    End With

 
Next

Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set pp = Nothing

Exit Sub

Zuruecksetzen:
Set PP_Folie = Nothing
Set PP_Datei = Nothing
Set pp = Nothing
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub


Ist das möglich?
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 11:29
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Habs gefunden.

es lag an

Code:

PP_Folie.Shapes.Paste



Nun sieht es so aus:
Code:

PP_Folie.Shapes.Paste.Top = 150


Und es funktioniert.
Razz

Komme vielleicht gleich nochmal auf das Thema zurück.

Besten Dank nochmals für Eure Unterstützung.

Viele Grüße aus Köln und bis später!
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 12:01
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Noch ein kleines Problem habe ich:

In meiner Vorlage befindet sich eine kleine Grafik in der oberen rechten Ecke.

Wenn ich das Chart zentriert inmitten des Slides einfüge, dann wird meine kleine Grafik in der Vorlage auseinander gezogen.

Warum ist das so? Gibt es dafür eine Lösung?
Mit dieser Lösung sind dann meine Probleme zunächst mal alle beseitigt und ich kann an die nächste Sache ran gehen.

Herzlichen dank!

Viele Grüße,

Centauro
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Apr 2009, 13:52
Rufname:

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hat für oben genanntes Problem mit der Grafik in der Vorlage eine Lösung oder einen Tipp für mich?

Das wäre klasse!

Viele Grüße aus Köln,

Centauro
Case
Coder


Verfasst am:
22. Apr 2009, 18:36
Rufname: Case
Wohnort: Schwäbisch Hall

AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hallo, Razz

das liegt an dieser Zeile:

Code:
With PP_Folie.Shapes.Range


Dadurch werden alle Shapes auf dem Slide - also auch Dein Logo - veändert.

Du hast m. E. nach zwei Möglichkeiten:

1. Du arbeitest in PowerPoint mit einem Masterslide. Ein dort eingefügtes Clipart wird in dem Fall nicht verändert.

2. Du sprichst Dein einzufügendes Diagramm direkt an:

Code:
'.......
Dim objShape As Object
'.......
Grafik.CopyPicture
Set objShape = PP_Folie.Shapes.Paste
'.......
With objShape
'Oberer Rand 1 cm unter Standardtitel
'.......


Servus
Case

_________________
Servus
Case
centauro
Im Profil kannst Du frei den Rang ändern


Verfasst am:
23. Apr 2009, 10:03
Rufname:


AW: chart nach Powerpoint export funktioniert nicht richtig - AW: chart nach Powerpoint export funktioniert nicht richtig

Nach oben
       Version: Office XP (2002)

Hi Case,

besten Dank für Deine Tips und Hinweise.

Zu Punkt 1:

Ich arbeite tatsächlich mit einem Masterslide.
Die Grafik befindet sich in dem Masterslide.
Also kann ich in diesem Fall nur mit Punkt 2 weitermachen.

Werd es mal testen.

Vielen Dank nochmal und viele Grüße,

Centauro
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tabelle wie richtig verknüpfen? 2 Gast 585 30. Aug 2007, 13:13
hundertwasser Tabelle wie richtig verknüpfen?
Keine neuen Beiträge Excel Formeln: Weiß jemand wie man diese Formel richtig in Excel bringt? 1 Charlie45 893 13. Aug 2007, 15:52
GeDe Weiß jemand wie man diese Formel richtig in Excel bringt?
Keine neuen Beiträge Excel Formeln: sverweis funktioniert nicht immer 1 Dr. Carlos 575 20. Jul 2007, 12:00
< Peter > sverweis funktioniert nicht immer
Keine neuen Beiträge Excel Formeln: Richtig Sortieren 7 Cyclemen 575 04. Mai 2007, 18:57
Thomas Ramel Richtig Sortieren
Keine neuen Beiträge Excel Formeln: SVERWEIS zu externer Quelle funktioniert nicht 1 Shaggy84 588 20. März 2007, 11:29
Shaggy84 SVERWEIS zu externer Quelle funktioniert nicht
Keine neuen Beiträge Excel Formeln: Script funktioniert in Excel2003 nicht 1 earl_of_kiel 599 07. Feb 2007, 19:03
olafB Script funktioniert in Excel2003 nicht
Keine neuen Beiträge Excel Formeln: Wennfunktion funktioniert nicht 24 Birgit-Anfängerin 1504 07. Jan 2007, 02:23
fridgenep Wennfunktion funktioniert nicht
Keine neuen Beiträge Excel Formeln: sverweis funktioniert plötzlich nicht mehr 4 Daniel1983 1087 03. Jan 2007, 13:35
urs sverweis funktioniert plötzlich nicht mehr
Keine neuen Beiträge Excel Formeln: Formel in B5: =B(WERT(A1)) - wie macht mans richtig? 15 YC-KA 979 28. Okt 2006, 18:26
Gast Formel in B5: =B(WERT(A1)) - wie macht mans richtig?
Keine neuen Beiträge Excel Formeln: SVerweis funktioniert nicht durchgehend 9 havanaclubcup 1006 28. Sep 2006, 21:06
myfake SVerweis funktioniert nicht durchgehend
Keine neuen Beiträge Excel Formeln: INDEX-Funktion richtig anwenden... 1 metro2001 776 31. Aug 2006, 10:01
Alto INDEX-Funktion richtig anwenden...
Keine neuen Beiträge Excel Formeln: Zählenwenn addiert nicht richtig... 6 falo1955 1509 28. Mai 2006, 18:17
falo1955 Zählenwenn addiert nicht richtig...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project