如何在图表上以编程方式设置X轴?

我在Excel的工作表中有一个图表,我有一个macros设置,以便当我更改某个单元格中的值时,图表中的数据范围设置为A2 ,直到该特定单元格中对应的行号。

我似乎无法做的是修改轴作为指定的轴不再覆盖图的范围,即当前X轴设置为:

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

我无法弄清楚如何在macros中更新它。 任何帮助将非常感激。

你应该能够按照你在兰斯为你的其他问题所做的回答中设置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