Show All

AddEffect Method

Returns an Effect object that represents a new animation effect added to a sequence of animation effects.

expression   Required. An expression that returns one of the objects in the Applies To list.

Shape  Required Shape object. The shape to which the animation effect is added.

effectId  Required MsoAnimEffect. The animation effect to be applied.

Level  Optional MsoAnimateByLevel. For charts, diagrams, or text, the level to which the animation effect will be applied. The default value is msoAnimationLevelNone.

trigger  Optional MsoAnimTriggerType. The action that triggers the animation effect. The default value is msoAnimTriggerOnPageClick.

Index  Optional Long. The position at which the effect will be placed in the collection of animation effects. The default value is -1 (added to the end).

Example

The following example adds a bouncing animation to the first shape range on the first slide. This example assumes a shape range containing one or more shapes is selected on the first slide.

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