TimeLine Property

object representing the animation timeline for the slide.

expression.TimeLine

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example adds a bouncing animation to the first shape on the first slide.

Sub NewTimeLineEffect()

    Dim sldFirst As Slide
    Dim shpFirst As Shape

    Set sldFirst = ActivePresentation.Slides(1)
    Set shpFirst = sldFirst.Shapes(1)

    sldFirst.TimeLine.MainSequence.AddEffect _
        Shape:=shpFirst, EffectId:=msoAnimEffectBounce

End Sub