Vba to get the coordinates of the shapes

hello,

Sub coord()
     Dim i, N, Arr
     With Sheets("Sheet1")
          N = .Shapes.Count
          ReDim Arr(1 To N, 1 To 8)
          For i = 1 To N
               With .Shapes(i)
                    Arr(i, 1) = .Name
                    Arr(i, 2) = .Left
                    Arr(i, 3) = .Top
                    Arr(i, 4) = .Width
                    Arr(i, 5) = .Height
                    Arr(i, 6) = .Rotation
                    Arr(i, 7) = Arr(i, 2) + Arr(i, 4) / 2
                    Arr(i, 8) = Arr(i, 3) + Arr(i, 5) / 2
               End With
          Next
          
          With .Range("AQ1")
               .Resize(, 8).Value = Split("Name, left Top Width Height Rotaton CenterX CenterY")
               .Offset(1).Resize(UBound(Arr), UBound(Arr, 2)).Value = Arr
          End With
     End With
End Sub

you asked the centerX and Y, so you have to calculate them with the values top, left, width and height :
* CenterX=left + 0.5 * Width
* CenterY = top + 0.5 * Height

an update with that centercell