设置或返回 MsoTriState 类型常数,该值代表效果是否应正向播放后再反向播放,并因此而将持续时间加倍。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue 不应用于此属性。 |
msoFalse 默认值。效果不会正向播放后再反向播放。 |
msoTriStateMixed 不应用于此属性。 |
msoTriStateToggle 不应用于此属性。 |
msoTrue 效果正向播放后再反向播放。 |
expression.AutoReverse
expression 必选。该表达式返回“应用于”列表中的对象之一。
以下示例添加一个形状并向其中添加动画效果;然后将动画设置为正向播放结束后反向播放。
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