API Documentation > CorelDRAW > 2025-v26 > EffectPushPullDistortion > IVGEffectPushPullDistortion
EffectPushPullDistortion.Amplitude property
Gets or sets the amplitude of the PushPull distortion
Syntax:
Property Get Amplitude() As Long
Property Let Amplitude(ByVal Value As Long)
Remarks:
The Amplitude property returns or specifies the strength of the effect in a Push-and-pull distortion effect. The range of the distortion value is 1 to 200.
Examples:
The following VBA example sets the amplitude of all Push-and-pull distortion effects to 30.
Sub Test()
Dim s As Shape, eff As Effect
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrDistortion Then


If eff.Distortion.Type = cdrDistortionPushPull Then


  eff.Distortion.PushPull.Amplitude = 30


End If


Exit For

 End If
  Next eff
Next s 
End Sub