Amount Property

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.Amount

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

Example

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

Applies to | EffectParameters Object