Hallo,
ich bekomme bei meinem Code immer die Fehlermeldung: Laufzeitfehler '-2147024894 (800700002)': Die Methode 'Open' für das Objekt 'Presentations' ist fehlgeschlagen. der Fehler erscheint in der mit dem Pfeil markierten Zeile. Ich möchte eigentlich nur eine Excel Tabelle in eine von mir bereits erstellte Powerpoint Vorlage einfügen
Kann mir da jemand weiterhelfen, oder hat jemand eine Idee, wie ich das auch anders hinkriege? Vielen Dank schonmal.
Sub Excel_to_Powerpoint()
Dim pptPres As PowerPoint.Presentation
Dim pptApp As PowerPoint.Application
Dim pptVorlage As String
pptVorlage = "D:\Users\BKU\CedricWirth\Desktop\DHBW_Mosbach\T2000\Test\VorlagePSB.potx"
Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
--> pptPres = pptApp.Presentations.Open(pptVorlage, ReadOnly:=msoFalse, Untitled:=msoTrue)
pptPres.Slides(1).Select
pptPres.Slides(1).Shapes("Projektnummer").TextFrame.TextRange.Characters.Text = Range("B10").Value
pptPres.Slides(1).Shapes("Projektbezeichnung").TextFrame.TextRange.Characters.Text = Range("B11").Value
pptPres.Slides(1).Shapes("Bahnhofsname").TextFrame.TextRange.Characters.Text = Range("B12").Value
pptPres.Slides(1).Shapes("Stadt").TextFrame.TextRange.Characters.Text = Range("B12").Value
......
|