PowerPoint VBA教程:TriggerShape属性

设置或返回 Shape对象,该对象代表与动画触发器相关联的形状。可读写。

expression.TriggerShape

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

上页:PowerPoint VBA教程:TriggerDelayTime属性 下页:PowerPoint VBA教程:TriggerType属性

PowerPoint VBA教程:TriggerShape属性

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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号