EffectZipperDistortion.Random

Property Random As Boolean

The Random property returns or sets whether the distorting waves in a Zipper distortion effect should be generated with random amplitudes.

The following code example selects all shapes to which is applied a Zipper distortion effect that is smooth, random, and not local:

Sub Test() 
 Dim s As Shape, eff As Effect, zip As EffectZipperDistortion 
 Dim sr As New ShapeRange 
 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.Smooth And zip.Random And Not zip.Local Then sr.Add s 
    End If 
    Exit For 
   End If 
  Next eff 
 Next s 
 sr.CreateSelection 
End Sub