Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Determines whether text will be animated in reverse order. Returns an Effect object representing the text animation.
Syntax
expression .ConvertToAnimateInReverse(Effect, animateInReverse)
expression A variable that represents a Sequence object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
---|---|---|---|
Effect |
Required |
Effect |
The animation effect to which the reversal will apply. |
animateInReverse |
Required |
MsoTriState |
Determines the text animation order. |
Return Value
Effect
Example
This example creates a shape with text on a slide and adds a random animation to the shape, ensuring the shape's text animates in reverse.
Sub AnimateInReverse()
Dim sldActive As Slide
Dim timeMain As TimeLine
Dim shpRect As Shape
' Create a slide, add a rectangular shape to the slide, and
' access the slide's animation timeline.
With ActivePresentation
Set sldActive = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Set shpRect = sldActive.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=100, Top:=100, Width:=300, Height:=150)
Set timeMain = sldActive.TimeLine
End With
shpRect.TextFrame.TextRange.Text = "This is a rectangle."
' Add a random animation effect to the rectangle,
' and animate the text in reverse.
With timeMain.MainSequence
.ConvertToAnimateInReverse _
Effect:=.AddEffect(Shape:=shpRect, effectId:=msoAnimEffectRandom), _
AnimateInReverse:=msoTrue
End With
End Sub