通过

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。