ChartUnitEffect Property Example

This example sets shape two on slide three in the active presentation to be animated by series. Shape two must be a graph for this to work.

With ActivePresentation.Slides(3).Shapes(2)
    With .AnimationSettings
        .ChartUnitEffect = ppAnimateBySeries
        .EntryEffect = ppEffectFlyFromLeft
        .Animate = True
    End With
End With