PowerPoint VBA教程:AutoReverse属性

设置或返回MsoTriState 类型常数,该值代表效果是否应正向播放后再反向播放,并因此而将持续时间加倍。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 默认值。效果不会正向播放后再反向播放。 
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 效果正向播放后再反向播放。

expression.AutoReverse

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例添加一个形状并向其中添加动画效果;然后将动画设置为正向播放结束后反向播放。


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

上页:PowerPoint VBA教程:AutomationSecurity属性 下页:PowerPoint VBA教程:AutoRotateNumbers属性

PowerPoint VBA教程:AutoReverse属性

PowerPoint VBA教程:AutoRotateNumbers属性 PowerPoint VBA教程:AutoShapeType属性
PowerPoint VBA教程:AutoSize属性 PowerPoint VBA教程:AutoUpdate属性
PowerPoint VBA教程:BackColor属性 PowerPoint VBA教程:Background属性
PowerPoint VBA教程:BaseLineAlignment属性 PowerPoint VBA教程:BaselineOffset属性
PowerPoint VBA教程:BeginArrowheadLength属性 PowerPoint VBA教程:BeginArrowheadStyle属性
PowerPoint VBA教程:BeginArrowheadWidth属性 PowerPoint VBA教程:BeginConnected属性
PowerPoint VBA教程:BeginConnectedShape属性 PowerPoint VBA教程:BeginConnectionSite属性
PowerPoint VBA教程:Behaviors属性 PowerPoint VBA教程:Black Property
PowerPoint VBA教程:BlackAndWhite属性 PowerPoint VBA教程:BlackWhiteMode属性
PowerPoint VBA教程:Bold属性 PowerPoint VBA教程:Border属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号