Sequence.FindFirstAnimationForClick Method (PowerPoint)
Returns an Effect object that represents the first animation started by the specified click number.
Syntax
expression .FindFirstAnimationForClick(click)
expression A variable that represents a Sequence object.
Parameters
Name |
Required/Optional |
Data Type |
Description |
|---|---|---|---|
click |
Required |
Long |
The specified click number. |
Return Value
Effect
Example
The following example finds the first animation for the first click of 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