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

Question

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

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

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

я могу Не знаю, как я могу обновить это в макросе. Любая помощь приветствуется.

Answer 1

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

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