AnimateBackground Property

AnimateBackground property as it applies to the AnimationSettings object.

MsoTriState

expression.AnimateBackground

*expression   * Required. An expression that returns an AnimationSettings object.

AnimateBackground property as it applies to the EffectInformation object.

MsoTriState

expression.AnimateBackground

*expression   * Required. An expression that returns one of the above objects.

Remarks

Use the TextLevelEffect and TextUnitEffect properties to control the animation of text attached to the specified shape.

If this property is set to MsoTrue and the TextLevelEffect property is set to ppAnimateByAllLevels, the shape and its text will be animated simultaneously. If this property is set to MsoTrue and the TextLevelEffect property is set to anything other than ppAnimateByAllLevels, the shape will be animated immediately before the text is animated.

You won't see effects of setting this property unless the specified shape is animated. For a shape to be animated, the TextLevelEffect property for the shape must be set to something other than ppAnimateLevelNone, and either the Animate property must be set to MsoTrue, or the EntryEffect property must be set to a constant other than ppEffectNone.

Example

As it applies to the AnimationSettings object.

This example creates a rectangle that contains text. The example then specifies that the shape should fly in from the lower right, that the text should be built from first-level paragraphs, and that the shape should be animated separately from the text it contains. In this example, the EntryEffect property turns on animation.

Sub AnimateTextBox()
    With ActivePresentation.Slides(1).Shapes.AddShape _
            (Type:=msoShapeRectangle, Left:=50, Top:=200, _
            Width:=200, Height:=200)
        .TextFrame.TextRange = "Reason 1" & Chr(13) & _
        "Reason 2" & Chr(13) & "Reason 3"
        With .AnimationSettings
            .EntryEffect = ppEffectFlyFromBottomRight
            .TextLevelEffect = ppAnimateByFirstLevel
            .TextUnitEffect = ppAnimateByParagraph
            .AnimateBackground = msoTrue
        End With
    End With
End Sub

As it applies to the EffectInformation object.

This example changes the direction of the animation if the background is currently animated.

Sub ChangeAnimationDirection()
    With ActivePresentation.Slides(1).TimeLine.MainSequence(1)
        If .EffectInformation.AnimateBackground = msoTrue Then
            .EffectParameters.Direction = msoAnimDirectionTopLeft
        End If
    End With
End Sub

Applies to | AnimationSettings Object | EffectInformation Object