Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(3, 3, 2, 1) s.ConvertToCurves s.Curve.Segments.All.SetType cdrLineSegmentEnd Sub