Shape.CreatePushPullDistortion

Function CreatePushPullDistortion(OriginX As Double, OriginY As Double, Amplitude As Long) As Effect

Member of Shape

The CreatePushPullDistortion method applies a Push-and-pull 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 Push-and-pull distortion rotates
OriginY	Specifies the y-coordinate around which the Push-and-pull distortion rotates
Amplitude	Determines the intensity of a Push-and-pull-distortion effect. Values range from 0 to 100. Higher values produce a more pronounced distortion.

The following code example creates an ellipse in the middle of the page and applies a Push-and-pull distortion to it. Then it converts the shape to curve.

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