Amount Property

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