Изменить номер диаграммы

[vefer]

Здравствуйте. У меня такая проблема: имеется лист с несколькими диаграммами, я написал макрос, который вызывает каждую диаграмму по номеру:

For s = 1 To 4
ActiveSheet.ChartObjects(s).Activat e
и т.д.

на одном листе работает прекрасно, но когда я копирую этот лист в эту-же книгу, на копии листа макрос не может найти вторую диаграмму, где вообще устанавливаются эти номера диаграмм?

[SAS888]

Номера могут меняться. Особенно при добавлении и удалении диаграмм.
Лучше использовать обращение к членам коллекции. Например:

Sub Main()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoChart Then MsgBox sh.Name 'это для примера
    Next
End Sub

[vefer]

это конечно хорошо, но мне надо обратиться к каждой из 4х диаграмм на 5ти листах, желательно циклом, не буду-же я к каждой обращаться. Поменять-то номер можно?

[SAS888]

Макрос их "видит", но не активирует. Вместо свойства .Activate объекта ActiveSheet.ChartObjects(s) используйте

ActiveSheet.ChartObjects(s).Select

В Excel 2007 такой проблемы нет. Если у Вас не получается что-либо другое (кроме активации), приложите файл и объясните, что Вы хотите получить.