PowerPoint VBA教程:FindFirstAnimationForClick方法

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

expression.FindFirstAnimationForClick(Click)

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

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

VBA示例

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


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

上页:PowerPoint VBA教程:FindFirstAnimationFor方法 下页:PowerPoint VBA教程:First方法

PowerPoint VBA教程:FindFirstAnimationForClick方法

PowerPoint VBA教程:First方法 PowerPoint VBA教程:FitToPage方法
PowerPoint VBA教程:Flip方法 PowerPoint VBA教程:Follow方法
PowerPoint VBA教程:FollowHyperlink方法 PowerPoint VBA教程:GotoNamedShow方法
PowerPoint VBA教程:GotoSlide方法 PowerPoint VBA教程:Group方法
PowerPoint VBA教程:Help方法 PowerPoint VBA教程:ImportFromFile方法
PowerPoint VBA教程:IncrementBrightness方法 PowerPoint VBA教程:IncrementContrast方法
PowerPoint VBA教程:IncrementLeft方法 PowerPoint VBA教程:IncrementOffsetX方法
PowerPoint VBA教程:IncrementOffsetY方法 PowerPoint VBA教程:IncrementRotation方法
PowerPoint VBA教程:IncrementRotationX方法 PowerPoint VBA教程:IncrementRotationY方法
PowerPoint VBA教程:IncrementTop方法 PowerPoint VBA教程:Insert方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号