Обращение к диаграмме в макросе

[ruavia3]

Как можно обратиться к диаграмме, название которой будет указано в определенной ячейке? Например, значение А1 = "Chart1".

Нужно программно обратиться к диаграмме "Chart1"
Пробую вот так

ActiveSheet.ChartObjects("Worksheets("Sheet1").Range("A1").value").Activate

не получается.

[EducatedFool]

Воспользуйтесь макрорекордером - получите готовый код типа этого:

Sub Макрос1()
    ActiveSheet.ChartObjects("Диагр. 2").Activate
    ActiveChart.ChartArea.Select
End Sub

Ну или как-то так:

Sub test()
    ActiveSheet.ChartObjects(1).Activate
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.ChartObjects(Worksheets("Sheet1").Range("A1")).Activate
End Sub

[doober]

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

ActiveSheet.ChartObjects("Worksheets("Sheet1").Range("A1").value").Activate

не получается.

ActiveSheet.ChartObjects(Worksheets("Sheet1").Range("A1").value).Activate

Убрать лишние кавычки

[ruavia3]

В приложенном файле пример. Я хочу поставить сетку на одной диаграмме, а снять с другой. Но обращаясь к диаграмме, через значение A1.

Вот код макроса, для установления сетки на Chart1

Sub Macro2()
'
'ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.ChartObjects(Worksheets ("Sheet1").Range("A1")).Activate

ActiveChart.ChartArea.Select
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = True
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
End Sub


При нажатии кнопки значение в A1 меняется на Chart2.