Sub ki286()
Dim obg(10) As String      'オブジェクト名
Sheets("Sheet1").Select
i = 1
For Each ex In ActiveSheet.Shapes
    obg(i) = ex.Name
    ActiveSheet.Shapes(obg(i)).Select
    hei = Selection.ShapeRange.Height
    wid = Selection.ShapeRange.Width
  
    MsgBox obg(i) & "  Height " & hei & "  Width " & wid
    i = i + 1
Next
    MsgBox "図形" & i - 1 & "個のサイズを取得しました"
     Range("A1").Select
     Sheets("Title").Select

End Sub