| Name | Type | Description |
|---|---|---|
| OriginX |
Double
|
|
| OriginY |
Double
|
|
| Angle |
Double
|
Sub Test() Dim s As Shape ActiveDocument.ResetSettings Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, _ ActivePage.SizeHeight / 2, 2) s.CreateTwisterDistortion 0, 3, 80 s.ConvertToCurves End Sub