Examples:
The following VBA example selects a shape object in the active document and determines if that shape is a curve object. If the shape is a curve, a message box displays the length of that curve, in a measurement of inches.
Sub CurveLength()
Dim s As Shape
Set s = ActiveSelection.Shapes(1)
If s.Type = cdrCurveShape Then
MsgBox "The length of the curve is: " _
& vbCrLf & s.Curve.Length & " inches"
End If
End Sub