PowerPoint) (Timing.TriggerType 屬性

代表開始動畫的觸發程序。 讀取/寫入。

語法

expression。 TriggerType

運算式 代表 Timing 物件的變數。

傳回值

MsoAnimTriggerType

註解

TriggerType 屬性的值可以是下列其中一個 MsoAnimTriggerType 常數。 預設值為 msoAnimTriggerOnPageClick 。

msoAnimTriggerAfterPrevious
msoAnimTriggerMixed
msoAnimTriggerNone
msoAnimTriggerOnPageClick
msoAnimTriggerOnShapeClick
msoAnimTriggerWithPrevious

範例

下列範例新增圖案到投影片,再新增動畫到圖案,然後指示圖案在本身被按一下三秒鐘過後開始播放動畫。

Sub AddShapeSetTiming() 
 
    Dim effDiamond As Effect 
    Dim shpRectangle As Shape 
 
    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 = 5 
        .TriggerType = msoAnimTriggerWithPrevious
        .TriggerDelayTime = 3 
    End With 
 
End Sub

另請參閱

時間物件

支援和意見反應

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