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