Returns or sets a Single that represents the number of degrees an animated shape is rotated around the z-axis. A positive value indicates clockwise rotation; a negative value indicates counterclockwise rotation. Read/write.
expression Required. An expression that returns one of the objects in the Applies To list.
The following example adds a shape, and a 90-degree spin animation to the shape.
Sub SetAnimEffect() Dim effSpin As Effect Dim shpCube As Shape Set shpCube = ActivePresentation.Slides(1).Shapes.AddShape _ (Type:=msoShapeCube, Left:=100, Top:=100, _ Width:=50, Height:=50) Set effSpin = ActivePresentation.Slides(1).TimeLine _ .MainSequence.AddEffect(Shape:=shpCube, _ effectId:=msoAnimEffectSpin) effSpin.Timing.Duration = 3 effSpin.EffectParameters.Amount = -90 End Sub