How to add the blinds animation to a shape in a specified slide.
Sub AddAnimationtoShape()
Dim sldActive As Slide
Dim shpSelected As Shape
Set sldFirst = ActivePresentation.Slides(1)
Set shpFirst = sldFirst.Shapes(1)
sldFirst.TimeLine.MainSequence.AddEffect _
Shape:=shpFirst, effectId:=msoAnimEffectBlinds
End Sub
| TimeLine - A read-only property of the Slide object that returns a TimeLine object that represents the animation timeline for the slide. |
| MainSequence - A property of the TimeLine object that returns a Sequence object that represents the collection of Effect objects in the main animation sequence of a slide. |
| AddEffect - A property of the Sequence object that adds a new animation effect and returns an Effect object. |
|
