SlideShowTransition.Duration 屬性 (PowerPoint)

會傳回或設定動畫的長度 (以秒為單位)。 讀取/寫入。

語法

expression。 Duration

表達 代表 Timing 物件的變數。

傳回值

單一

範例

下列範例會新增圖案並且將動畫新增至該圖案，然後設定它的動畫期間。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation 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:=sh, effectId:=msoAnimEffectPathDiamond)

    'Sets duration of effect
    effDiamond.Timing.Duration = 5

End Sub

另請參閱

Timing 物件SlideShowTransition 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。