Можно ли средствами VBA узнать номер уже созданной диаграммы?

[zot315]

Здравствуйте!
Помогите, пожалуйста, в следующей проблеме.

Я сделал макрос (Excel 2003, первая в жизни попытка), он работает, обращается к расположенным на листе 3-м диаграммам по очереди и изменяет их успешно. Каждую по разному, как и надо. Потом обращается к 3-м диаграммам на следующем листе и т.д. Таких листов в 3-мя диаграммами немало. Но на некоторых листах, судя по реакции Debug, номера диаграмм почему-то другие, т.е. не в том порядке, напрмер не 1,2,3, а 2,1,3 (хотя и создавались путем копирования предыдущего листа).

Можно ли средствами VBA узнать номер диаграммы, чтобы затем с нужными изменениями обратиться уже к нужной диаграмме? Или применить в данной ситуации какой другой трюк?

Спасибо!

[doober]

Сообщение от zot315

Или применить в данной ситуации какой другой трюк?

Здравствуйте.
Другой,обращаться по имени диаграммы.
При копировании надо этот момент не упустить и присвоить соответствующие именв

[zot315]

Сообщение от doober

Здравствуйте.
Другой,обращаться по имени диаграммы.
При копировании надо этот момент не упустить и присвоить соответствующие именв

Спасибо! К сожалению несколько книг с полуторасотней листов уже созданы и не упустить этот момент при копировании уже поздно? Как быть?

[doober]

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

[zot315]

ОК! Спасибо, буду пробовать) В общем-то к этому мысли и двигались, но была надежда что VBA это умеет(

[27102014]

Если для всех диаграмм одинаковое действие, то можно посчитать количество на листе и выполнить простой цикл

Sub Макрос()
'номер последней диаграммы
i = ActiveSheet.ChartObjects.Count

'цикл перебора всех диаграмм

For k = 1 To i
ActiveSheet.ChartObjects(k).Activate
'Действие
Next

End Sub

[zot315]

Сообщение от 27102014

Если для всех диаграмм одинаковое действие, то можно посчитать количество на листе и выполнить простой цикл

Увы, для диаграмм действия разные(

[27102014]

я тут подумал - если все-таки нужен список имен диаграм, то почему бы и нет?

Sub Макрос()
i = ActiveSheet.ChartObjects.Count

For k = 1 To i
ActiveSheet.ChartObjects(k).Activate
u = ActiveSheet.ChartObjects(k).Name
MsgBox u

Next

End Sub

[27102014]

Сообщение от zot315

Увы, для диаграмм действия разные(

Тогда так

Sub Макрос2()
i = ActiveSheet.ChartObjects.Count

For k = 1 To i
ActiveSheet.ChartObjects(k).Activate
u = ActiveSheet.ChartObjects(k).Name
    Select Case u
    Case Chart1
    'Действие1
    Case Chart2
    'Действие2
    Case Chart3
    'Действие3
    End Select


Next

End Sub

[zot315]

Да список имен ясен - Диагр.1, Диагр.2, Диагр.3. На каждом листе. Только, например, на одном листе Диагр.1 это имя диаграммы, построеной по данным, напрмер, столбца B, а на другом листе Диагр. 1 это имя диаграммы, построеной по данным другого столбца. Очень надеюсь, что я понятно говорю о проблеме)))