Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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