Play und Pause mit PowerPoint

[Sebastian_7a2a35]

Hallo!
Ich habe eine PowerPoint-Präsentation mit mehreren Folien. Es soll eine Navigationsleiste eingeblendet werden, für „ein Bild vor/zurück“ etc. gibt es ja einfache Funktionen. Allerdings soll es auch einen „Play“ und „Pause“-Button geben. Der Play-Button zeigt die einzelnen Folien der Reihe nach in einer Schleife an (pro Folie z.B. 60 Sek). Der „Pause“-Button stoppt dieses automatische weiterblättern. Ich habe einiges ausprobiert, kenne mich allerdings leider wenig mit PowerPoint und Makros aus…

Mein bisheriger Versuch für die Anfänge einer Play-Funktion (leider geht da gar nichts):

---

Sub play()
Set prsThis = ActivePresentation
intFolienanzahl = prsThis.Slides.Count
While 1 = 1
For i = 1 To intFolienanzahl
WarteZeit = Timer + 30
While WarteZeit > Timer
DoEvents
Loop
Wend
prsThis.SlideShowWindows(Index:=1).View.Next
End
Wend
End Sub

Bin für jede Hilfe dankbar!
mfG Seb

[RASTA_bee1ff]

hallo sebastian,

dein ansatz war doch grundsätzlich nicht so schlecht…

die timer-schleife sieht aber nach gwbasic-zeiten aus…
je schneller der rechner, desto schneller läuft sie durch…

du must für deine pausen „sleep“ verwenden

die sleep-funktion kannst du nur über einen api-call benutzen–bsp.

Public Declare Sub Sleep Lib „kernel32“ (ByVal dwMilliseconds As Long)

kannst du dann ganz einfach so verwenden:

sleep(3000)

hoffe es hilft dir weiter

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]