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