Share via

AnimationSettings Object

  • Article
Shapes (Shape)
Aa159405.parchild(en-us,office.10).gifAnimationSettings
Aa159405.space(en-us,office.10).gifAa159405.parmult(en-us,office.10).gifColorFormat
Aa159405.space(en-us,office.10).gifAa159405.parmult(en-us,office.10).gifPlaySettings
Aa159405.space(en-us,office.10).gifAa159405.parchild(en-us,office.10).gifSoundEffect

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