Makro von Power Point aus Excel heraus
12.03.2020 13:08:33
Power
ich möchte gerne ein Makro in PP aus Excel heraus starten. Dazu will ich zunächst eine PP_Vorlage (diese enthält das Makro "Link") öffnen, ein paar Folien bearbeiten und anschließend das Makro (Link) in der PP ausführen. Zur Zeit benutze ich Office 365 ProPlus und mein Code sieht folgendermaßen aus:
Sub PPerstellen()
Dim oPPT As PowerPoint.Application
Dim oSlide As PowerPoint.Slide
Dim oPres As PowerPoint.Presentation
Set oPPT = New PowerPoint.Application
oPPT.Visible = True
oPPT.Presentations.Open "Pfad der PP Vorlage"
'Tabellen werden eingefügt
Set oSlide = oPPT.ActivePresentation.Slides(3) 'Foliennummer wird ausgewählt
Sheets("Export Arbeitspakete").Range("A1:E6").Copy 'Der Bereich der in Excel kopiert werden _
soll
oSlide.Shapes.Paste 'Bereich wird auf ausgewählter Folie eingefügt
'Folienüberschriften werden generiert
Set oSlide = oPPT.ActivePresentation.Slides(3)
oSlide.Shapes.Range.TextFrame.TextRange.Text = Sheets("Export Inhaltsverzeichnis").Range("A2"). _
Text
oPPT.Run (Link)
oPPT =Nothing
End Sub
Jetzt bekomme ich die Fehlermeldung "Invalid Request.
Sub or
Function not defined."
Vielen Dank für Eure Hilfe