PowerPoint VBA教程:Restart属性

设置或返回MsoAnimEffectRestart 类型常数,该常数代表动画效果启动一次后是否会重新启动。可读写。

MsoAnimEffectRestart 可以是下列 MsoAnimEffectRestart 类型常数之一。
msoAnimEffectRestartAlways
msoAnimEffectRestartNever 默认值。
msoAnimEffectRestartWhenOff

expression.Restart

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

VBA示例

以下示例添加一个形状并对该形状添加一个动画,然后设置该动画重新启动的动作。


Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    'Adds shape and sets animation
    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)
    With effDiamond.Timing
        .Duration = 3
        .RepeatDuration = 5
        .RepeatCount = 3
        .Restart = msoAnimEffectRestartAlways
    End With
End Sub

上页:PowerPoint VBA教程:ResizeGraphics属性 下页:PowerPoint VBA教程:Reverse属性

PowerPoint VBA教程:Restart属性

PowerPoint VBA教程:Reverse属性 PowerPoint VBA教程:RewindAtEnd属性
PowerPoint VBA教程:RewindMovie属性 PowerPoint VBA教程:RGB属性
PowerPoint VBA教程:Root属性 PowerPoint VBA教程:RotatedChars属性
PowerPoint VBA教程:Rotation属性 PowerPoint VBA教程:RotationEffect属性
PowerPoint VBA教程:RotationX属性 PowerPoint VBA教程:RotationY属性
PowerPoint VBA教程:Rows属性 PowerPoint VBA教程:Ruler属性
PowerPoint VBA教程:Run属性 PowerPoint VBA教程:Saved属性
PowerPoint VBA教程:SaveNewWebPagesAsWebArchives属性 PowerPoint VBA教程:ScaleEffect属性
PowerPoint VBA教程:SchemeColor属性 PowerPoint VBA教程:ScreenSize属性
PowerPoint VBA教程:ScreenTip属性 PowerPoint VBA教程:Script属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号