Hallo Leute,
ich habe folgendes Problem, dass ich bisher, trotz ausgiebiger Recherche, nicht gelöst bekommen habe.
Ich will folgendes erreichen:
Sobald man die Powerpoint-Präsentation startet (als .ppt nicht .pps), soll automatisch die Bildschirmpräsentation starten.
Diese Bildschirmpräsentation soll durchlaufen. Jede Folie soll eine gewisse Zeit angezeigt werden (lässt sich problemlos über Powerpoint selbst einstellen).
Die letzte Folie der Präsentation soll eine Zeit lang bestehen bleiben, genauso lang wie alle anderen Folien.
Nach Ablauf dieser Zeit, soll die .ppt geschlossen werden und gleichzeitig eine .html geöffnet werden.
Das Ausführen der Makros beim starten / beenden wird von Powerpoint eigentlich nicht unterstützt (benutzt wird Powerpoint 2003).
Deswegen habe ich folgende Anleitung versucht:
http://www.office-loesung.de/ftopic17416_0_0_asc.php
In dem Klassenmodule "Klasse1" habe ich folgenden Code:
Public WithEvents app As Application
Private Sub app_PresentationOpen(ByVal Pres As Presentation)
ActivePresentation.SlideShowSettings.Run
End Sub
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
End Sub
Die Codes für sich genommen funktionieren. Also das Schließen der .ppt bzw. das Starten der Präsentation. Allerdings nur, wenn ich die Makros manuell starte. Automatisch funktioniert es nicht.
Hat jemand eine gute Idee?
Vielen Dank.
|