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

Syntax

expression.AddEffect(Shape, effectId, Level, trigger, Index)

expression A variable that represents a Sequence object.

Parameters

Name Required/Optional Data Type Description
Shape Required The shape to which the animation effect is added.
effectId Required The animation effect to be applied.
Level Optional For charts, diagrams, or text, the level to which the animation effect will be applied. The default value is msoAnimationLevelNone.
trigger Optional 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).

Return Value
Effect

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.

Visual Basic for Applications 
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

See also: