Sub Test() Dim i As Long For i = 1 To ActiveShape.Curve.Segments.Count ActiveShape.Curve.Segments(i).Type = cdrCurveSegment Next iEnd SubSub Test() Dim seg As Segment For Each seg In ActiveShape.Curve.Segments seg.Type = cdrCurveSegment Next segEnd Sub