PowerPoint VBA教程:TriggerType属性

设置或返回MsoAnimTriggerType 类型常数,该常数代表启动动画的触发器。可读写。

MsoAnimTriggerType 可以是下列 MsoAnimTriggerType 类型常数之一。
msoAnimTriggerAfterPrevious
msoAnimTriggerMixed
msoAnimTriggerNone
msoAnimTriggerOnPageClick 默认值。
msoAnimTriggerOnShapeClick
msoAnimTriggerWithPrevious

expression.TriggerType

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例向幻灯片添加一个形状,并对该形状添加动画,然后指示在单击该形状三秒钟后开始动画。


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 = msoAnimTriggerOnShapeClick
        .TriggerDelayTime = 3
    End With
End Sub

上页:PowerPoint VBA教程:TriggerShape属性 下页:PowerPoint VBA教程:Type属性

PowerPoint VBA教程:TriggerType属性

PowerPoint VBA教程:Type属性 PowerPoint VBA教程:Underline属性
PowerPoint VBA教程:UpdateLinksOnSave属性 PowerPoint VBA教程:UseFormat属性
PowerPoint VBA教程:UseLongFileNames属性 PowerPoint VBA教程:UseTextColor属性
PowerPoint VBA教程:UseTextFont属性 PowerPoint VBA教程:Value属性
PowerPoint VBA教程:VBASigned属性 PowerPoint VBA教程:VBE属性
PowerPoint VBA教程:VBProject属性 PowerPoint VBA教程:Version属性
PowerPoint VBA教程:VerticalAnchor属性 PowerPoint VBA教程:VerticalFlip属性
PowerPoint VBA教程:Vertices属性 PowerPoint VBA教程:View属性
PowerPoint VBA教程:ViewType属性 PowerPoint VBA教程:Visible属性
PowerPoint VBA教程:WebOptions属性 PowerPoint VBA教程:Weight属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号