Sub ki272()
Dim obg(20) As String
Application.ScreenUpdating = False

Sheets("Sheet1").Select
i = 1
For Each ex In ActiveSheet.ChartObjects
    obg(i) = ex.Name
   hei = ActiveSheet.ChartObjects(obg(i)).Chart.ChartArea.Height
   wid = ActiveSheet.ChartObjects(obg(i)).Chart.ChartArea.Width
   MsgBox obg(i) & "  Height " & hei & Chr$(10) _
   & obg(i) & "  Width " & wid
    i = i + 1
Next
Sheets("Title").Select
End Sub