EntryEffect Property Example

This example adds a title slide to the active presentation and sets the title to fly in from the right whenever it's animated during a slide show.

With ActivePresentation.Slides.Add(1, ppLayoutTitleOnly).Shapes(1)
        .TextFrame.TextRange.Text = "Sample title"
    With .AnimationSettings
        .TextLevelEffect = ppAnimateByAllLevels
        .EntryEffect = ppEffectFlyFromRight
        .Animate = True
    End With
End With