AnimateBackground Property
AnimateBackground property as it applies to the AnimationSettings object.
MsoTriState
MsoTriState can be one of these MsoTriState constants. |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
expression.AnimateBackground
*expression * Required. An expression that returns an AnimationSettings object.
AnimateBackground property as it applies to the EffectInformation object.
MsoTriState
MsoTriState can be one of these MsoTriState constants. |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue |
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