Sub NumberObjectsFromLeftToRight()
    Dim sr As ShapeRange
    Dim s As Shape
    Dim i As Integer
    Dim txt As Shape
    Dim spacing As Double
    Dim shapesList() As Shape
    Dim j As Integer, k As Integer
    Dim temp As Shape
    Dim n As Integer
    Dim x As Double, y As Double

    ' ពិនិត្យការជ្រើសរើស
    If ActiveSelection.Shapes.Count = 0 Then
        MsgBox "សូមជ្រើសរើស OBJECT ជាមុនសិន!", vbExclamation
        Exit Sub
    End If

    spacing = 2
    Set sr = ActiveSelectionRange
    n = sr.Count
    ReDim shapesList(1 To n)

    ' ដាក់ Shapes ទៅក្នុង List
    For i = 1 To n
        Set shapesList(i) = sr.Shapes(i)
    Next i

    ' 🔄 រៀបតាម CenterX (តិចទៅច្រើន) = ពីឆ្វេងទៅស្ដាំ
    For j = 1 To n - 1
        For k = j + 1 To n
            If shapesList(j).CenterX > shapesList(k).CenterX Then
                Set temp = shapesList(j)
                Set shapesList(j) = shapesList(k)
                Set shapesList(k) = temp
            End If
        Next k
    Next j

    ' សរសេរលេខក្រោម Object
    For i = 1 To n
        Set s = shapesList(i)
        Set txt = ActiveLayer.CreateArtisticText(0, 0, Format(i, "000"), , , "Arial", 12)

        x = s.CenterX - txt.SizeWidth / 2
        y = s.BottomY - spacing - txt.SizeHeight

        txt.SetPosition x, y
    Next i

    MsgBox "📌 រាប់ពីឆ្វេងទៅស្ដាំបានជោគជ័យ!", vbInformation
End Sub