Shape.CreateZipperDistortion

Function CreateZipperDistortion(OriginX As Double, OriginY As Double, Amplitude As Long, Frequency As Long, [Random As Boolean = False], [Smooth As Boolean = False], [Local As Boolean = False]) As Effect

Member of Shape

The CreateZipperDistortion method applies a Zipper distortion to a shape. This method returns an Effect object that represents the distortion-effect properties.


Parameters	Description
OriginX	Specifies the x-coordinate around which the Zipper distortion rotates
OriginY	Sets the y-coordinate around which the Zipper distortion rotates
Amplitude	Determines the intensity of a Zipper-distortion effect. Values range from 0 to 100. Higher values produce a more pronounced zipper distortion.
Frequency	Values range from 0 to 100. A higher frequency value creates more zipper points in the distortion effect.
Random	Determines whether the horizontal and vertical points follow a haphazard course This parameter is optional, and its default value is False.
Smooth	Determines whether the edges at the points are smooth or jagged This parameter is optional, and its default value is False.
Local	Determines whether the effect is emphasized in a specific area of the selected object This parameter is optional, and its default value is False.

The following code example creates an ellipse and applies a Zipper distortion to the ellipse. It then converts the ellipse to a curve.

Sub Test() 
 Dim s As Shape 
 ActiveDocument.ResetSettings 
 Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, _ 
  ActivePage.SizeHeight / 2, 2) 
 s.CreateZipperDistortion 0, 0, 6, 80 
 s.ConvertToCurves 
End Sub