manual and auto slideshow option

[svaldes]

I have a presentation in kiosk mode. I want the slideshow to loop with the slides automatically advancing 5 seconds. However, I want to give the user the option get out of the automatic mode and manually advance from slide to slide at their own pace (all without getting out of slideshow mode). User should be able to set it back into automatic mode without getting out of slideshow mode.

thanks in advance

[John Wilson]

Provide an action button that moves to the next slide to allow manual control and also an "On/Off" button that runs this code

Sub zap_time()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
With osld.SlideShowTransition
.AdvanceOnTime = Not .AdvanceOnTime
End With
Next osld
End Sub

Buttons can be on the slide master

[svaldes]

Thank you, thank you, thank you,

That is exactly what I was looking for!

[John Wilson]

You're welcome/ Point your colleagues at our free help site too!

[svaldes]

I hate to ask, but how hard would it be to update the code so if the slideshow is idle (in manual mode) for more than 5 minutes, it would revert back to automatic mode (slides advance based on the transitions time set in them).

Thanks

[John Wilson]

That would not be easy!

You would need to write a class module to react to the nextslide and next build events and also use the setTimer and killTimer API's. Unless that makes perfect sense to you I wouldn't go there!

[svaldes]

That would not be easy!

You would need to write a class module to react to the nextslide and next build events and also use the setTimer and killTimer API's. Unless that makes perfect sense to you I wouldn't go there!

I figured I had to setTimer and killTimer but this is above my skill level.

Thanks