全部显示

AddEffect 方法

返回一个 Effect 对象，该对象代表一个已添加到动画效果序列中的新动画效果。

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

Shape  必选。Shape 对象。添加动画效果的形状。

effectId  必选。MsoAnimEffect 类型。要应用的动画效果。

Level  可选。MsoAnimateByLevel 类型。对图表、图示或文本，将应用相应的动画效果级别。默认值为 msoAnimationLevelNone。

trigger  可选。MsoAnimTriggerType 类型。触发动画效果的动作。默认值为 msoAnimTriggerOnPageClick。

示例

以下示例将一个弹跳的动画添加到第一张幻灯片的第一个形状范围内。本示例假定形状范围包含在第一张幻灯片中选定的一个或多个形状。

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub