AdvanceOnTime Property Example

This example sets slide one in the active presentation to advance after five seconds have passed or when the mouse is clicked — whichever occurs first.

With ActivePresentation.Slides(1).SlideShowTransition
    .AdvanceOnClick = True
    .AdvanceOnTime = True
    .AdvanceTime = 5
End With