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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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:
1
2
3
4
|
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
|