AdvanceTime Property Example

This example sets shape two on slide one in the active presentation to become animated automatically after five seconds.

With ActivePresentation.Slides(1).Shapes(2).AnimationSettings
    .AdvanceMode = ppAdvanceOnTime
    .AdvanceTime = 5
    .TextLevelEffect = ppAnimateByAllLevels
    .Animate = True
End With