Sequence.FindFirstAnimationForClick Method
Returns an ColorEffect object that represents the first animation started by the specified click number.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Function FindFirstAnimationForClick ( _
click As Integer _
) As Effect
'Usage
Dim instance As Sequence
Dim click As Integer
Dim returnValue As Effect
returnValue = instance.FindFirstAnimationForClick(click)
Effect FindFirstAnimationForClick(
int click
)
Parameters
- click
Type: System.Int32
The specified click number.
Return Value
Type: Microsoft.Office.Interop.PowerPoint.Effect
Effect
Examples
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