Обращение к диаграммах в Excel XP и 2000

[nq3]

Здраствуйте!
Когда я обращаюсь в ХП к диаграмме я пишу

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

ActiveSheet.ChartObjects("Диагр. 4").Activate


а в Excel 2000 она уже называется

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

ActiveSheet.ChartObjects("Chart 15").Activate


Как поменять название диаграммы? Нигде не могу найти

[alibek]

Щелкаешь на диаграмме (на самой диаграмме, а не на каком-либо из ее объектов) и вводишь новое имя диаграммы. Вводить надо в комбо-бокс, в котором показывается адрес ячеек.

[nq3]

Напиши поподробнее, я нашел только имя ряда а не всей диаграммы.

[alibek]

Это потому, что ты щелкнул на одном из рядов.
Если щелкнешь по рамке диаграммы, то увидишь имя.

[EDIT]
Обманул Для диаграмм это не прокатывает.
Тогда примерно так:

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

ActiveSheet.ChartObjects(1).Name = "testname"

[nq3]

Ну вот, а я думаю где ты имя там нашел.
Теперь всё работает!
А можно поменять номер ChartObjects и как он устанавливается самим Excel'ем.

[alibek]

Скорее всего Excel сам назначает номера, в том порядке, в котором диаграммы попадают в коллекцию.