Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
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