|
Hallo zusammen,
bei dem Ausführen des folgenden Scripts ergibt sich regelmäßig der Fehler: Application.Run : Invalid request. Sub or function not defined. error 0x80048240 (PowerPoint 2013)
Ich habe ein VBA-Script geschrieben, das die PowerPoint "test.pptm" öffnen soll und das enthaltene Makro "bank()" ausführen soll:
Sub ExcelMacroExample()
Dim ppApp
Dim ppBook
Set ppApp = CreateObject("PowerPoint.Application")
Set ppBook = xlApp.Presentations.Open("C:...\test.pptm", 0, True)
ppApp.Visible = True
ppApp.Run "test.pptm!Module1.bank"
ppApp.Quit
Set ppBook = Nothing
Set ppApp = Nothing
End Sub
Das Makro in der test.pptm ist:
Sub bank()
Dim bank As String
bank = "Sparkasse Flensburg"
MsgBox ("Bank: " & bank)
End Sub
Nur wenn ich die Zeilen:
Dim ppSlide
Set ppSlide = xlBook.Slides(1).Duplicate
einbinde und
ppApp.Run "bank" setze,
wird das Makro "bank" ordnungsgemäß ausgeführt. Ich habe jetzt schon ausführlich recherchiert, finde aber keine Lösung für mein Problem.
Beste Grüße
|