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.ConvertToCurvesEnd Sub