ich möchte gerne per Makro eine leere PowerPoint-Präsentation öffnen und Zellen aus einer Excel-Tabelle dort einfügen.
Dazu sollen die Zellen A1:E20 von Blatt10 (Worksheets(10) ) meiner Tabelle kopiert werden.
Ich dachte an etwas in der Art wie die folgenden Zeilen zum Öffnen von PowerPoint, weiss aber nicht, wie ich dort eine leere Präsentation öffne (d.h. keine Vorlage) und wie ich dort die kopierten Zellen aus dem Zwischenspeicher einfüge.
Das Kopieren sollte über
Worksheets(10).Range("A1:E20").Copy
gehen ?Mein Code für den Rest (soweit ich gekommen bin):
Dim PPObject As Obect
Set oPPT = CreateObject("Application.PowerPoint")
oPPT.Visible = True
oPPT.Presentations.Open Filename:="presentation.ppt"
Kann mir jemand damit weiterhelfen ?Vielen Dank im Voraus.
Gruß,
Thomas