EffectZipperDistortion.Frequency

Property Frequency As Long

The Frequency property returns or sets the frequency of a Zipper distortion effect.

Values range from 0 to 100. A higher frequency value creates more zipper points in the 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