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

Question

我在Excel中的工作表中有一个图表，并且我设置了一个宏，以便当我更改某个单元格中的值时，图表中的数据范围设置为A2，直至此行中对应的行号某些细胞。

似乎什么我不能要能够做的就是修改轴作为指定轴不再覆盖图的范围即当前X轴设置为：

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

我可以我不知道如何在宏中更新它。任何帮助将非常感激。

Answer 1

您应该可以像设置other question那样在兰斯的答案中设置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