EffectDistortion.Zipper

Property Zipper As EffectZipperDistortion

The Zipper property represents the properties of a Zipper distortion object.

The following code example looks through all shapes and distortion effects. Depending on the type of distortion effect, corresponding effect parameters are altered.

Sub Test() 
 Dim s As Shape, eff As Effect 
 For Each s In ActivePage.Shapes 
  For Each eff In s.Effects 
   If eff.Type = cdrDistortion Then 
    Select Case eff.Distortion.Type 
     Case cdrDistortionPushPull 
      eff.Distortion.PushPull.Amplitude = 50 
     Case cdrDistortionTwister 
      eff.Distortion.Twister.Angle = 400 
     Case cdrDistortionZipper 
      eff.Distortion.Zipper.Smooth = True 
    End Select 
   End If 
  Next eff 
 Next s 
End Sub