Как сделать Deactivate объекту Chart?

[O_H]

Часть кода:
ActiveSheet.ChartObjects("Диаграмма 2").Activate
ActiveChart.Axes(xlCategory, xlSecondary).TickLabelPosition = xlNextToAxis
.......................
Код отрабатывает нормально, только вот диаграмма остаётся выделенной.
Как убрать?
В хелпе написано. что объект Chart имеет метод Deactivate, но команда
ActiveChart.Deactivate
не проходит.

[EducatedFool]

А не надо делать Activate - тогда и Deactivate не понадобится...

Попробуйте как-то так:

    With ActiveSheet.ChartObjects("Диаграмма 2")
        .Axes(xlCategory, xlSecondary).TickLabelPosition = xlNextToAxis
        ' ...
    End With
End Sub

[O_H]

"Как-то так" я первым делом попробовал, но получил в ответ:
"Object doesn't support this property or method (Error 438)" и начал городить код с Activate.

[EducatedFool]

я первым делом попробовал, но получил в ответ

Я тоже как-то получал подобную ошибку.

Сделайте, как я - потратьте полчаса на изучение объектной модели диаграммы, и ошибки не будет.
На форуме есть примеры кода - можете переделать их.

Ваш код, скорее всего, заработает в таком виде:

With ActiveSheet.ChartObjects("Диаграмма 2").Chart
        .Axes(xlCategory, xlSecondary).TickLabelPosition = xlNextToAxis
        ' ...
    End With

[O_H]

Точно! В конструкции With потерялся сам объект Chart
Спасибо!