Gets or sets whether or not the Zipper distortion is smooth
Syntax:
Property Get Smooth() As Boolean
Property Let Smooth(ByVal Value As Boolean)
Remarks:
The Smooth property returns or specifies whether the wave peaks are smooth in a Zipper distortion effect.
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