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