SegmentRange.Length

Property Length As Double

Member of SegmentRange

The Length property returns the total length of all segments in a range.

The length is measured in document units.

The Length property returns a read-only value.

The following code example displays the total length of all curve segments in the selected curve:

Sub Test() 
 Dim sgr As New SegmentRange 
 Dim seg As Segment 
 For Each seg In ActiveShape.Curve.Segments 
  If seg.Type = cdrCurveSegment Then sgr.Add seg 
 Next seg 
 MsgBox "All curve segments have total length of " & sgr.Length & 
"""" 
End Sub