EffectPushPullDistortion.Amplitude

Property Amplitude As Long

The Amplitude property returns or sets the strength of the effect in a Push-and-pull distortion effect.

The range of the distortion value is 1 to 200.

The following code 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