API Documentation > CorelDRAW > 2025-v26 > EffectZipperDistortion > IVGEffectZipperDistortion
EffectZipperDistortion.Amplitude property
Gets or sets the amplitude of the Zipper distortion
Syntax:
Property Get Amplitude() As Long
Property Let Amplitude(ByVal Value As Long)
Remarks:
The Amplitude property returns or specifies the amplitude or strength of a Zipper distortion effect. Values range from 0% to 100%. Higher values produce a more pronounced Zipper distortion effect.
Examples:
The following VBA example specifies a wave amplitude of 20% for each Zipper distortion effect with a frequency greater than 10.
Sub Test()
Dim s As Shape, eff As Effect, zip As EffectZipperDistortion
For Each s In ActivePage.Shapes
  For Each eff In s.Effects

 If eff.Type = cdrDistortion Then


If eff.Distortion.Type = cdrDistortionZipper Then


  Set zip = eff.Distortion.Zipper


  If zip.Frequency > 10 Then zip.Amplitude = 20


  End If


  Exit For


End If

 Next eff
  Next s

End Sub