将系列值更改为命名范围

Question

我在 Excel 中有一个图表（“图表 13”），我还有一个名为“nationals”的命名范围。

我想用命名范围替换图表系列的 Y 值（图表有三个不同的系列，我计划对所有三个重复类似的过程）。

这是我一直在尝试但没有成功：

ActiveWorkbook.Sheets("My_Sheet").ChartObjects("Chart 13").Activate
ActiveChart.SeriesCollection(1).Values = Range("nationals")

我收到以下错误：

“运行时错误'91'：对象变量或未设置块变量”

我觉得我已经很接近了，但我这辈子都无法到达终点线！感谢您的帮助。

编辑 这是一个折线图（带标记）——抱歉之前不清楚。相同情况的简单版本：

Answer 1

您需要像这样将对象添加到范围中：

Dim MyChart
Set MyChart = ActiveWorkbook.Sheets("My_Sheet").ChartObjects("Chart 13").Chart

MyChart.SeriesCollection(1).Values = ActiveWorkbook.Sheets("My_Sheet").Range("nationals")

另外，正如您所注意到的，ChartObjects().Chart 对象具有SeriesCollection。