Как программно установить ось X на графике?

Question

У меня есть диаграмма на рабочем листе в Excel, и у меня есть макрос, настроенный таким образом, чтобы при изменении значения в определенной ячейке диапазон данных на диаграмме устанавливался на A2 вплоть до номера строки соответствующие в этой определенной ячейке.

То, что я не могу сделать, это изменить ось, поскольку указанная ось больше не охватывает диапазон графика, т.е. текущая ось X установлена ​​на:

=Sheet1!$C$2:$C$600

Я не могу понять, как я могу обновить это в макросе. Любая помощь будет высоко ценится.

Answer 1

Вы должны иметь возможность установить свойство XValues ​​так же, как вы указали в ответе Ланса на ваш другой вопрос .

Charts("chartname").SeriesCollection(1).XValues = "=MYXAXIS"

или как вы называете именованный диапазон для значений оси X. Если у вас есть несколько рядов в диаграмме, вам нужно изменить значение в SeriesCollection для ссылки на правильный ряд.

Answer 2

Содержит ли "определенная ячейка" номер последней строки данных? (не совсем понятно)

Предположим, ячейка F1 содержит последнюю строку в данных. Вы можете создать адрес и диапазон следующим образом:

Dim rXVals As Range
Dim sAddress AS String

sAddress = "Sheet1!$C$2:$C$" & Worksheets("Sheet1").Range("F1").Value
Set rXVals = Range(sAddress)
Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).XValues = rXVals