PowerpointMakro aus Excel aufrufen
08.07.2003 11:30:54
Florian
Hans hat einen Beitrag verfasst, indem beschrieben wird, wie man aus Excel ein WordMakro aufruft. Ich möchte dasselbe mit einem PowerpointMakro tun. Allerdings bekomme ich immer eine Fehlermeldung, dass mein sub/
Function nicht definiert sei. Darüber verzweifle ich langsam. Hier mein Code, vielleicht sieht ja jemand sofort den Fehler?
Das Makro heißt "test"
Sub CommandButton1_Click()
Dim pptApp As powerpoint.Application
Dim pptPres As powerpoint.Presentation
Dim pptSlide As powerpoint.Slide
Set pptApp = CreateObject("powerpoint.application") 'New powerpoint.Application
Set pptPres = pptApp.Presentations.Open("M:\EXCELTEST\leerePräsentation.ppt", , , False)
With pptPres.Slides
.InsertFromFile "M:\EXCELTEST\TEST.ppt", 1, 3, 6
End With
With pptApp
.Visible = msoTrue
End With
pptApp.Run "Project.Modul1.test()"
End Sub
Danke im Voraus und Gruß aus Aachen,
Florian