Returns a object for an animation behavior.

Syntax

expression.RotationEffect

expression A variable that represents an AnimationBehavior object.

Return Value
RotationEffect

Example

The following example adds a new shape to the first slide and sets the rotation animation behavior.

Visual Basic for Applications 
Sub AddRotation() Dim shpNew As Shape Dim effNew As Effect Dim aniNew As AnimationBehavior Set shpNew = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShape5pointStar, Left:=0, _ Top:=0, Width:=100, Height:=100) Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom) Set aniNew = effNew.Behaviors.Add(msoAnimTypeRotation) With aniNew.RotationEffect 'Rotate 270 degrees from current position .By = 270 End With End Sub

See also: