Sub Test() Dim s As Shape Dim sp As SubPath Dim seg As Segment Set s = ActiveShape If s.Type = cdrCurveShape Then For Each sp In s.Curve.Subpaths For Each seg In sp.Segments Debug.Print seg.Index, seg.AbsoluteIndex Next seg Next sp End IfEnd Sub