将系列值更改为命名范围

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

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

这是我一直试图没有成功的：

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

我得到以下错误：

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

我觉得我很接近，但不能走到终点为我的生活！ 我感谢任何帮助。

编辑这是一个折线图（带标记） – 对不起，以前并不清楚。 相同情况的简单版本：

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 。