Sub Test() Dim s As Shape ActiveDocument.ResetSettings Set s = ActiveLayer.CreateEllipse2(ActivePage.SizeWidth / 2, _ ActivePage.SizeHeight / 2, 2) s.CreateZipperDistortion 0, 0, 6, 80 s.ConvertToCurvesEnd Sub