Sequence.FindFirstAnimationFor (PowerPoint)

Returns an Effect object that represents the first animation for a given shape.

FindFirstAnimationFor (Shape)

Shape: The shape for which to find the first animation.

Dim effFindFirstAnimationFor As Effect
Set effFindFirstAnimationFor = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.FindFirstAnimationFor(Shape:=)