Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(1, 1, 1) With s.CreateZipperDistortion(0, 0, 10, 6).Distortion .OriginX = 1 .OriginY = 0 End WithEnd Sub