AnimateBackground Property Example

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.

With ActivePresentation.Slides(1).Shapes.AddShape _
    (msoShapeRectangle, 50, 200, 200, 200)
         .TextFrame.TextRange = "Reason 1" _
         & Chr(13) & "Reason 2" & Chr(13) _
         & "Reason 3"
    With .AnimationSettings
        .EntryEffect = ppEffectFlyFromBottomRight
        .TextLevelEffect = ppAnimateByFirstLevel
        .TextUnitEffect = ppAnimateByParagraph
        .AnimateBackground = True
    End With
End With