Sub CopyCurveLengthToText()
    Dim s As Shape
    Dim t As Shape
    Dim lengthVal As Double
    
    
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection.ConvertToCurves
    
    ' Check if there is an active selection
    If ActiveShape Is Nothing Then
        MsgBox "Please select a curve first!", vbExclamation
        Exit Sub
    End If
    
    Set s = ActiveShape
    
    ' Check if the selected shape is a curve
    If s.Type = cdrCurveShape Then
        ' Calculate curve length (VBA default is Inches, so multiply by 2.54 for cm)
        lengthVal = s.Curve.Length * 2.54
        
        ' Create Artistic Text with 4 decimal places
        Set t = ActiveLayer.CreateArtisticText(0, 0, "Length: " & Round(lengthVal, 4) & " cm")
        
        ' Align text to the center of the selection
        t.CenterX = s.CenterX
        
        ' Position the text slightly above the curve
        t.CenterY = s.CenterY + 1
        
        ' Set text color to Red for visibility
'        t.Fill.UniformColor.SetRGB 255, 0, 0
    Else
        MsgBox "The selected object is not a curve.", vbCritical
    End If
End Sub