|
Represents the slide show setup for a presentation.
Using the SlideShowSettings Object
Use the SlideShowSettings property to return the SlideShowSettings object. The first section in the following example sets all the slides in the active presentation to advance automatically after five seconds. The second section sets the slide show to start on slide two, end on slide four, advance slides by using the timings set in the first section, and run in a continuous loop until the user presses ESC. Finally, the example runs the slide show.
For Each s In ActivePresentation.Slides
With s.SlideShowTransition
.AdvanceOnTime = True
.AdvanceTime = 5
End With
Next
With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = 4
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With