Hallo Leute,
für ein Projekt, wo mehrere PowerPoint und Excel Dateien nacheinander in einer Endlosschleife präsentiert werden sollen, wurde von mir eine .hta Datei erzeugt.
Die .hta Datei öffnet mithilfe von VBScript u.a. eine Powerpoint Datei, wechselt in den Präsentationsmodus, lässt alle vorhandenen Folien durchlaufen und schließt dann die Powerpoint Datei. Dies funktioniert soweit.
Damit man die Präsentation jederzeit abbrechen kann, wurde in der .hta Datei ein "Beenden"-Button eingebaut, welcher die ganze Präsentation unterbrechen soll.
Dies funktioniert auch...aber nur solange keine Powerpoint Präsentation aktiv ist. Sobald eine PP Präsi läuft, friert die .hat ein...und reagiert nicht mehr auf den Klick auf den "Beenden"-Button.
Bei Excel ist es nicht so, dort reagiert der Button sofort und unterbricht die Präsi.
Zum besseren Verständis -> Hier der Code für das öffnen, präsentieren und schließen einer PowerPoint Datei:
Google und die Suche hier hat mir leider nicht weiter geholfen.
Deshalb meine Frage an euch: Hat jemand eine Idee, woran das liegen könnte?
Bin für jeden Tipp dankbar
MfG
CB
für ein Projekt, wo mehrere PowerPoint und Excel Dateien nacheinander in einer Endlosschleife präsentiert werden sollen, wurde von mir eine .hta Datei erzeugt.
Die .hta Datei öffnet mithilfe von VBScript u.a. eine Powerpoint Datei, wechselt in den Präsentationsmodus, lässt alle vorhandenen Folien durchlaufen und schließt dann die Powerpoint Datei. Dies funktioniert soweit.
Damit man die Präsentation jederzeit abbrechen kann, wurde in der .hta Datei ein "Beenden"-Button eingebaut, welcher die ganze Präsentation unterbrechen soll.
Dies funktioniert auch...aber nur solange keine Powerpoint Präsentation aktiv ist. Sobald eine PP Präsi läuft, friert die .hat ein...und reagiert nicht mehr auf den Klick auf den "Beenden"-Button.
Bei Excel ist es nicht so, dort reagiert der Button sofort und unterbricht die Präsi.
Zum besseren Verständis -> Hier der Code für das öffnen, präsentieren und schließen einer PowerPoint Datei:
Quellcode
- Set App = CreateObject("Powerpoint.Application")
- Set Doc = App.Presentations.Open("Pfad...", false, true)
- App.Visible = True
- Doc.Slides.Range.SlideShowTransition.AdvanceTime = 22
- Doc.Slides.Range.SlideShowTransition.AdvanceOnTime = TRUE
- Doc.SlideShowSettings.AdvanceMode = 2
- Doc.SlideShowSettings.ShowType = 2
- Doc.SlideShowSettings.StartingSlide = 1
- Doc.SlideShowSettings.EndingSlide = _
- Doc.Slides.Count
- Set objSlideShow = doc.SlideShowSettings.Run.View
- App.WindowState = 3
- Do Until objSlideShow.State = 5
- Loop
- Doc.Close
- App.Quit
- Set Doc = Nothing
- Set App = Nothing
- Set objSlideShow = Nothing
Google und die Suche hier hat mir leider nicht weiter geholfen.
Deshalb meine Frage an euch: Hat jemand eine Idee, woran das liegen könnte?
Bin für jeden Tipp dankbar
MfG
CB