EffectZipperDistortion.Local

Property Local As Boolean

The Local property returns or sets whether the zipper distortion effect is emphasized in an area of the object.

When Local is set to True, the transformation amplitude becomes dependent on the distance from the center of distortion.

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