PowerPoint) (Timing.Restart 属性

代表动画效果启动一次后是否会重新启动。 读/写。

语法

expression。 Restart

表达 一个代表 Timing 对象的变量。

返回值

MsoAnimEffectRestart

备注

重新启动 属性的值可以是其中一个 MsoAnimEffectRestart 常量。 默认值为 msoAnimEffectRestartNever 。

示例

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

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

另请参阅

计时对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。