Returns or sets the type of animation applied to the font. Read/write WdAnimation.
WdAnimation can be one of these WdAnimation constants. |
wdAnimationBlinkingBackground |
wdAnimationLasVegasLights |
wdAnimationMarchingRedAnts |
wdAnimationShimmer |
wdAnimationMarchingBlackAnts |
wdAnimationNone |
wdAnimationSparkleText |
expression.Animation
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example animates the text in a new document.
Dim docNew As Document
Set docNew = Documents.Add
With docNew.Content
.InsertAfter "This is a test of animation."
.Font.Animation = wdAnimationLasVegasLights
End With
This example animates the selected text.
If Selection.Type = wdSelectionNormal Then
Selection.Font.Animation = wdAnimationShimmer
Else
MsgBox "You need to select some text."
End If