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