AnimationSettings Property Example

This example sets shape one on slide two in the active presentation to fly in from the left when the slide is built.

With ActivePresentation.Slides(2).Shapes(1).AnimationSettings
    .EntryEffect = ppEffectFlyFromLeft
    .TextLevelEffect = ppAnimateByAllLevels
End With