返回 Effect 对象,该对象代表给定形状的第一个动画。
expression.FindFirstAnimationFor(Shape)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Shape 必选。Shape 对象。要查找其第一个动画的形状。
以下示例查找并删除第一张幻灯片上第一个形状的第一个动画。本示例假设指定形状至少具有一个动画效果。
Sub FindFirstAnimation()
Dim sldFirst As Slide
Dim shpFirst As Shape
Dim effFirst As Effect
Set sldFirst = ActivePresentation.Slides(1)
Set shpFirst = sldFirst.Shapes(1)
Set effFirst = sldFirst.TimeLine.MainSequence _
.FindFirstAnimationFor(Shape:=shpFirst)
effFirst.Delete
End Sub