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