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