habe bei Google ein nettes kleines Beispiel gefunden, wie man Grafiken, die sich in einer Excelmappe befinden, nach Powerpoint (in ein Dokument) kopieren kann und zwar pro Grafik eine Seite.
Das funktioniert sehr gut:
Set PP = CreateObject("Powerpoint.Application")
With PP
.Visible = True
.Presentations.Add
End With
Set PP_Datei = PP.ActivePresentation
For Each Grafik In ActiveSheet.Shapes
PP.ActivePresentation.Slides.Add 1, ppLayoutBlank
Set PP_Folie = PP_Datei.Slides(1)
Grafik.CopyPicture
PP_Folie.Shapes.Paste
'Grafik ausrichten
With PP_Folie.Shapes(1)
.IncrementLeft 295
.IncrementTop 200
End With
Next
Nun würde ich gerne die Grafiken nicht in eine neues, leeres PPT-Dokument kopieren, sondern in eine eigene Vorlage. (wo schon Fuß.- Kopfzeile, Überschriften drin sind.) Diese Vorlage besteht im Moment erst mal aus einer Seite. (Folie)
Kann mir jemand zeigen, wie ich statt dem neuen, leeren PPT Dokument mein eigenes Dokument aus einem Verzeichnis ansteuern kann und dort die Grafiken reinkopieren kann.
Sollte dann auch wieder so sein, dass pro Grafik wieder eine Seite verwendet wird. Die bestehende Folie in der Vorlage müsste dann x-mal neu angelegt werden.
Kann da jemand helfen, wenn es nicht zu viel Aufwand ist ?
Danke schon mal
Gruß
Jockel