AnimationBehaviors Collection

Represents a collection of AnimationBehavior objects.

Using the AnimationBehaviors collection

Use the Add method to add an animation behavior. The following example adds a five-second animated rotation behavior to the main animation sequence on the first slide.

Sub AnimationObject()
    Dim timeMain As TimeLine

    'Reference the main animation timeline
    Set timeMain = ActivePresentation.Slides(1).TimeLine

    'Add a five-second animated rotation behavior
    'as the first animation in the main animation sequence
    timeMain.MainSequence(1).Behaviors.Add Type:=msoAnimTypeRotation, Index:=1
End Sub