Sub ki273()
Application.ScreenUpdating = False

Sheets("Sheet1").Select
i = 1
For Each ex In ActiveSheet.ChartObjects
    n1 = ex.Name
    n2 = ex.TopLeftCell.Row
    n3 = ex.TopLeftCell.Column
    n4 = ex.BottomRightCell.Row
    n5 = ex.BottomRightCell.Column
    MsgBox n1 & " " & Chr$(10) _
      & "セル位置(上側行）： " & n2 & "、セル位置(上側列）： " & n3 & Chr$(10) _
      & "セル位置(下側行）： " & n4 & "、セル位置(下側列）： " & n5
    i = i + 1
Next
Sheets("Title").Select
End Sub