FindFirstAnimationForClick Method

Returns an Effect object that represents the first animation started by the specified click number.

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

Click  Required Long. The specified click number.

Example

The following example finds the first animation for the first click on the first slide and changes the effect to a bounce.

Sub FindFirstAnimationClick()
    Dim sldFirst As Slide
    Dim effClick As Effect

    Set sldFirst = ActivePresentation.Slides(1)

    Set effClick = sldFirst.TimeLine.MainSequence _
        .FindFirstAnimationForClick(Click:=1)
    effClick.EffectType = msoAnimEffectBounce
End Sub