EffectZipperDistortion.Amplitude

Property Amplitude As Long

The Amplitude property returns or sets the amplitude or strength of a Zipper distortion effect.

Values range from 0% to 100%. Higher values produce a more pronounced Zipper distortion effect.

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