Returns a RotationEffect object for an animation behavior. Read-only.
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.<strong>RotationEffect</strong>
'Rotate 270 degrees from current position
.By = 270
End With