Sub Test() Dim seg As Segment For Each seg In ActiveShape.Curve.Subpaths(1).Segments seg.Type = cdrLineSegment Next segEnd Sub