Gets or sets whether or not the Zipper distortion is random
Syntax:
Property Get Random() As Boolean
Property Let Random(ByVal Value As Boolean)
Remarks:
The Random property returns or specifies whether the distorting waves in a Zipper distortion effect should be generated with random amplitudes.
Examples:
The following VBA example selects all shapes having 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