Segment.Index

Property Index As Long

The Index property returns the number (index) of the segment within its subpath.

The Index and AbsoluteIndex properties return the same value if the segment belongs to the first subpath of the curve.

The Index property returns a read-only value.

The following code example loops through all of the segments of each subpath and prints the segment’s Index and AbsoluteIndex property in the Intermediate window of the VBA Editor:

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 If 
End Sub