Shape.CreatePushPullDistortion

Object Model Reference : Classes : S : Shape : Methods : Shape.CreatePushPullDistortion

Shape.CreatePushPullDistortion

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

Description

Member of Shape

The CreatePushPullDistortion method applies a Push-and-pull distortion to a shape, returning an Effect object that represents the distortion properties.


Parameter	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	Specifies the intensity of the Push-and-pull-distortion effect. Values range from 0 to 100; higher values produce a more pronounced distortion.

VBA example

The following VBA example creates an ellipse in the middle of the page and applies a Push-and-pull distortion to 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.CreatePushPullDistortion 0, 0, 60

s.ConvertToCurves

End Sub