Поиск диаграммы на листе Excel

[Alexeyi]

Мне необходимо определить есть ли на листе диаграмма и определить ее имя. Подскажите как это можно сделать

[Teslenko_EA]

Здравствуйте Alexeyi.

Код: Выделить всё

Sub nameCharts()
On Error GoTo 9
Worksheets(1).ChartObjects(1).Activate ' обращение к листу по имени [B]Worksheets("Лист1")[/B]
  MsgBox ActiveChart.Name
9:    Err.Clear
End Sub

Евгений.