TriggerShape Property

expression.TriggerShape

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

Example

The following example adds two shapes to a slide, adds an animation to a shape, and begins the animation when the other shape is clicked.

Sub AddShapeSetTiming()
    Dim effDiamond As Effect
    Dim shpRectangle As Shape
    Set shpOval = _
      ActivePresentation.Slides(1).Shapes. _
      AddShape(Type:=msoShapeOval, Left:=400, Top:=100, Width:=100, Height:=50)
    Set shpRectangle = ActivePresentation.Slides(1).Shapes.  _
      AddShape(Type:=msoShapeRectangle, Left:=100, Top:=100, Width:=50, Height:=50)
    Set effDiamond = ActivePresentation.Slides(1).TimeLine. _
      InteractiveSequences.Add().AddEffect(Shape:=shpRectangle,  _
      effectId:=msoAnimEffectPathDiamond, trigger:=msoAnimTriggerOnShapeClick)
    
    With effDiamond.Timing
        .Duration = 5
        .TriggerShape = shpOval
    End With
End Sub