that represents whether an effect should play forward and then reverse, thereby doubling the duration. Read/write.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Doesn't apply to this property. |
| msoFalse Default. The effect does not play forward and then reverse. |
| msoTriStateMixed Doesn't apply to this property. |
| msoTriStateToggle Doesn't apply to this property. |
| msoTrue The effect plays forward and then reverse. |
expression.AutoReverse
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example adds a shape and an animation effect to it; then sets the animation to reverse direction after finishing forward movement.
Sub SetEffectTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds rectangle and applies diamond effect
Set shpRectangle = ActivePresentation.Slides(1).Shapes.AddShape _
(Type:=msoShapeRectangle, Left:=100, _
Top:=100, Width:=50, Height:=50)
Set effDiamond = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpRectangle, _
effectId:=msoAnimEffectPathDiamond)
'Sets the duration of and reverses the effect
With effDiamond.Timing
.Duration = 5 ' Length of effect.
.AutoReverse = msoTrue
End With
End Sub