TriggerShape Property

Sets or returns a Shape object that represents the shape associated with an animation trigger. Read/write.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example adds a shape to a slide, adds an animation to the shape, and begins the animation three seconds after the shape is clicked.

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