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

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

  •  03-07-2019
  •  | 
  •  

题

我在Excel的工作表中有一个图表，我有一个宏设置，这样当我更改某个单元格中的值时，图表中的数据范围设置为 A2 down as至于该特定单元格中对应的行号。

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

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

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

有帮助吗？

解决方案

您应该能够像Lance的回答一样设置XValues属性其他问题。 

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

或任何你称之为x轴值的命名范围。如果图表中有多个系列，则需要更改SeriesCollection中的值以引用正确的系列。

其他提示

“某些细胞”是否属于某种细胞。包含数据的最后一行？ （现在还不太清楚）

假设单元格F1包含数据中的最后一行。你可以像这样构建一个地址和范围：

Dim rXVals As Range
Dim sAddress AS String

sAddress = "Sheet1!$C$2:$C<*>quot; & Worksheets("Sheet1").Range("F1").Value
Set rXVals = Range(sAddress)
Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).XValues = rXVals
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top