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

[zot315]

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

Тогда так

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

Спасибо, буду пробовать)