This documentation is archived and is not being maintained.

Amount Property

Office 2003

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, _

    effSpin.Timing.Duration = 3
    effSpin.EffectParameters.Amount = -90

End Sub