|
Und jetzt nochmal in schöner:
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
|