object that represents the first animation started by the specified click number.
expression.FindFirstAnimationForClick(Click)
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