Sub CurveSegments() Dim s As Shape Dim seg As Segment For Each s In ActiveSelection.Shapes If s.Type <> cdrCurveShape Then s.ConvertToCurves End If If s.Type = cdrCurveShape Then For Each seg In s.Curve.Segments seg.Type = cdrLineSegment Next seg End If Next sEnd Sub