Sub Test() Dim sgr As SegmentRange Dim n As Node Dim i As Long Set sgr = ActiveShape.Curve.Segments.All For i = sgr.Count To 1 Step -1 If sgr(i).Type = cdrLineSegment Then sgr.Remove i ' Same as: If sgr.Item(i).Type <> cdrLineSegment Then sgr.Remove i Next i If sgr.Count > 0 Then sgr.AddNode End Sub