PowerPoint) (Restart 屬性

代表動畫效果是否會在此效果已啟動一次後重新啟動。 讀取/寫入。

語法

expression。 Restart

詞 一個代表 Timing 物件的變數。

傳回值

MsoAnimEffectRestart

註解

重新啟動 屬性的值可以是下列其中一個 MsoAnimEffectRestart 常數。 預設值為 msoAnimEffectRestartNever 。

msoAnimEffectRestartAlways
msoAnimEffectRestartNever
msoAnimEffectRestartWhenOff

範例

下列範例會新增圖案並且為它新增動畫，然後設定此動畫的重新啟動行為。

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 支援與意見反應。