изменить максимальную и минимальную ось X на нескольких графиках, включая скрытые

Question

Я хочу изменить максимальные и минимальные значения оси X на нескольких графиках на одном листе, включая скрытые (.visible = false).

Этот код работает, но не работает, если графикскрыт:

ActiveSheet.ChartObjects("CISGraph").Activate
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = ActiveWorkbook.Sheets("Chart Settings").Range("B3").Value
ActiveChart.Axes(xlCategory).MaximumScale = ActiveWorkbook.Sheets("Chart Settings").Range("B2").Value

Я хочу изменить его на что-то вроде ниже, чтобы обойти его выбор, но это не работает.

ActiveSheet.ChartObjects("CISGraph").Charts("CISGraph").Axes(xlCategory).MinimumScale = _
  ActiveWorkbook.Sheets("Chart Settings").Range("B3").Value
ActiveSheet.ChartObjects("CISGraph").Charts("CISGraph").Axes(xlCategory).MaximumScale = _
  ActiveWorkbook.Sheets("Chart Settings").Range("B2").Value

Answer 1

Доступ к диаграмме, встроенной в ChartObject, осуществляется через свойство Chart:

Dim wsSettings As Worksheet

Set wsSettings = ActiveWorkbook.Sheets("Chart Settings")

With ActiveSheet.ChartObjects("CISGraph").Chart.Axes(xlCategory)

    .MinimumScale = wsSettings.Range("B3").Value

    .MaximumScale = wsSettings.Range("B2").Value

End With