vba - 将系列值更改为命名范围

Question

我有一个 Excel 图表(“图表 13”)，还有一个名为“nationals”的命名范围。

我想用指定范围替换图表系列之一的 Y 值(图表有三个不同的系列，我计划对所有三个系列重复类似的过程)。

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

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

我收到以下错误:

"Run-time error '91': Object variable or With block variable not set"

我觉得我已经接近终点线了，但我一生都无法到达终点线!我感谢任何帮助。

编辑 这是一个折线图(带有标记) - 抱歉之前不清楚。相同情况的简单版本:

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。