PowerPoint VBA教程:FindFirstAnimationFor方法

返回Effect对象,该对象代表给定形状的第一个动画。

expression.FindFirstAnimationFor(Shape)

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

Shape  必选。Shape对象。要查找其第一个动画的形状。

VBA示例

以下示例查找并删除第一张幻灯片上第一个形状的第一个动画。本示例假设指定形状至少具有一个动画效果。


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


上页:PowerPoint VBA教程:FindBySlideID方法 下页:PowerPoint VBA教程:FindFirstAnimationForClick方法

PowerPoint VBA教程:FindFirstAnimationFor方法

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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号