EffectDistortion.OriginX

Property OriginX As Double

The OriginX property returns or sets the horizonal coordinate of the point of origin of a distortion effect. The coordinate is relative to the center of the shape.

This property is measured in document units.

The following code example applies a Zipper distortion to an ellipse and then moves the shape’s center by 1" to the right:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateEllipse2(1, 1, 1) 
 With s.CreateZipperDistortion(0, 0, 10, 6).Distortion 
  .OriginX = 1 
  .OriginY = 0 
 End With 
End Sub