|
Ist es möglich Powerpoint per Macro zu beenden und gleichzeitig eine .html aufzurufen, und zwar am Ende der Slideshow?
Versucht habe ich es folgendermaßen:
Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
Dim pfad As String
pfad = "D:\Temp\wget\Spiegel.html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run pfad
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
Set ppApp = New PowerPoint.Application
ppApp.quit
Set ppApp = Nothing
End Sub
Das Macro an sich funktioniert, wenn ich es manuell in folgender Form starte:
Sub quit()
Dim pfad As String
pfad = "D:\Temp\wget\Spiegel.html"
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run pfad
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
Set ppApp = New PowerPoint.Application
ppApp.quit
Set ppApp = Nothing
End Sub
Wenn es allerdings automatisch am Ende der Slideshow stattfinden soll, öffnet er zwar die .html, schließt jedoch Powerpoint nicht.
|