全部显示

Restart 属性

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

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

示例

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

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