Shape.CreateZipperDistortion method - Developer Area

API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape

Shape.CreateZipperDistortion method

Creates a zipper distortion effect

Syntax:

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

Parameters:

Name	Type	Description
OriginX	Double
OriginY	Double
Amplitude	Long
Frequency	Long
Random	Boolean	Specifies whether the horizontal and vertical points follow a haphazard course.
Smooth	Boolean	Specifies whether the edges at the points are smooth or jagged.
Local	Boolean	Specifies whether the effect is emphasized in a specific area of the selected object.

Remarks:

The CreateZipperDistortion method applies a Zipper distortion to a shape, returning an Effect object that represents the distortion properties.

Examples:

The following VBA example creates an ellipse and applies a Zipper distortion it before converting the shape 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