FindFirstAnimationForClick 方法

返回 Effect 对象，该对象代表按指定的单击次数启动的第一个动画。

expression  必选。该表达式返回“应用于”列表中的对象之一。

Click  必选。Long 类型。指定的单击次数。

示例

以下示例在第一张幻灯片上查找第一次单击时启动的第一个动画，并将其动画效果更改为弹跳。

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