Excelchart in PPT
Basti
ich habe ein vermeindlich einfaches Problem: Ich möchte ein Excel-Diagramm in Powerpoint kopieren. Leider klappt das kopieren, das öffnen von Powerpoint, aber dann das pasten nicht! Hier mein einfacher Code:
Private Sub Chart_kopieren()
'Die entsprechende Chart wird als Grafik kopiert
Sheets("Tabelle1").ChartObjects.CopyPicture
'Powerpoint wird gestartet und die entsprechende Präsentation geöffnet
Dim pp As Object
Set pp = CreateObject("PowerPoint.Application")
pp.Visible = True
pp.presentations.Open ("D:\Dokumente\Studium\Excel Tools\VBA\Tests\vba ppt.ppt")
'Die kopierte Grafik wird auf die entsprechende Seite der Präsentation eingefügt
pp.presentations("vba ppt").slides(4).Select
pp.ActiveWindow.View.Paste
End Sub
Any comments? Für Hilfe wäre ich wirklich sehr dankbar.
Bastian