Measure shapes in excel

Have a look at this - it should get you started:

Option Explicit

Public Sub Test()
  Dim shp As Shape
  Dim Left As Long, Top As Long, Width As Long, Height As Long
  
  Left = Selection.Left
  Top = Selection.Top
  Width = 200
  Height = 100
  
  Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, Left, Top, Width, Height)
  GetShapeInfo
End Sub

Public Sub GetShapeInfo()
  Dim shp As Shape
  Dim r As Long
  
  r = 1
  For Each shp In ActiveSheet.Shapes
    Cells(r, 1).Value = shp.Name
    Cells(r, 2).Value = shp.AutoShapeType
    Cells(r, 3).Value = shp.Top
    Cells(r, 4).Value = shp.Left
    Cells(r, 5).Value = shp.Width
    Cells(r, 6).Value = shp.Height
  Next
End Sub