Represents the special effects applied to the animation for the specified shape during a slide show.
Using the AnimationSettings Object
Use the AnimationSettings property of the Shape object to return the AnimationSettings object. The following example adds a slide that contains both a title and a three-item list to the active presentation, and then it sets the list to be animated by first-level paragraphs, to fly in from the left when animated, to dim to the specified color after being animated, and to animate its items in reverse order.
Set sObjs = ActivePresentation.Slides.Add(2, ppLayoutText).Shapes sObjs.Title.TextFrame.TextRange.Text = "Top Three Reasons" With sObjs.Placeholders(2) .TextFrame.TextRange.Text = _ "Reason 1" & VBNewLine & "Reason 2" & VBNewLine & "Reason 3" With .AnimationSettings .TextLevelEffect = ppAnimateByFirstLevel .EntryEffect = ppEffectFlyFromLeft .AfterEffect = ppAfterEffectDim .DimColor.RGB = RGB(100, 120, 100) .AnimateTextInReverse = True End With End With