Excedaten nach PowerPoint übertragen
26.02.2020 18:44:41
Martin
ich möchte aus einer Excel-Tabelle Zellwerte ("C5" und "D5") in Formen ("Summary" und "Details") einer PPTX-Datei übertragen. Mein Makro bleibt hängen und gibt mir folgende Fehlermeldung zurück:
Laufzeitfehler 5
Unguültiger Prozeduraufruf oder ungültiges Argument
Hier nun mein Makro:
Sub xslm_to_pptx()
Dim strPOTX As String
Dim strPfad As String
Dim pptApp As Object
Dim pptPres As Presentation
strPfad = "C:\Users\"
strPOTX = "slides.pptx"
Set pptApp = New PowerPoint.Application
pptVorlage = strPfad & strPOTX
pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
Set pptPres = pptApp.ActivePresentation
pptPres.Slides(1).Select
pptPres.Slides(1).Shapes("Summary").TextFrame.TextRange.Characters.Text = Worksheets(" _
general_report").Cells("C5").Value
pptPres.Slides(1).Shapes("Details").TextFrame.TextRange.Characters.Text = Worksheets(" _
general_report").Cells("D5").Value
End Sub
Könnt Ihr mir bitte helfen, stehe noch ziemlich am Anfang und weiß nicht wie ich dieses Problem löse.
Danke vorab!