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