Question

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

我似乎无法做的是修改轴，因为指定的轴不再覆盖图形的范围，即当前X轴设置为：

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

我无法弄清楚如何在宏中更新它。任何帮助将不胜感激。

Answer 1

您应该能够像Lance对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

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

2 个答案: