TimeLine Property
Returns a TimeLine 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
Applies to | Master Object | Slide Object | SlideRange Collection Object