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

StackOverflow https://stackoverflow.com/questions/209335

  •  03-07-2019
  •  | 
  •  

Вопрос

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

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

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

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

Это было полезно?

Решение

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

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

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

Другие советы

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

Предположим, ячейка 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
Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top