TimeLine Property

Returns a TimeLine object representing the animation timeline for the slide.

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