counting curve and line segments

is there a way to count curve and line segments in one line of code like i can when counting the total segments?

below is what i'm doing currently and it seems really slow:

For Each seg In ActiveShape.Curve.Segments
        Select Case seg.Type
            Case cdrLineSegment
                LineCount = LineCount + 1
                LineLength = LineLength + seg.Length
            Case cdrCurveSegment
                CurveCount = CurveCount + 1
                curveLength = curveLength + seg.Length
        End Select
Next seg

to do total segments i use:

ActiveShape.Curve.Segments.Count

i was hoping there was something similar to count segment types?

[shelbym]

I am guess what you have is the only way. The help file says to do it like this, which is just like you have it.

Sub Test()

 Dim seg As Segment, ls As Long, cs As Long

 If ActiveShape Is Nothing Then Exit Sub
 If ActiveShape.Type <> cdrCurveShape Then Exit Sub
 ls = 0
 cs = 0

 For Each seg In ActiveShape.Curve.Segments
  Select Case seg.Type
   Case cdrLineSegment
    ls = ls + 1
   Case cdrCurveSegment
    cs = cs + 1
  End Select

 Next seg

 MsgBox "The current curve has " & ActiveShape.Curve.Segments.Count & _

" segments including:" & vbCr & _
"Line segments: " & ls & vbCr & _
"Curve segments: " & cs

End Sub