由于1004运行时错误，无法使用录制的宏更改图表引用

Question

我正在尝试创建一个宏，它将重命名选项卡，然后将每个图表的源数据更改为命名范围。我通过遍历每个图表并手动更改源数据来记录宏，并获得以下代码（通过删除Application.CutCopyMode = False和类似代码清理）：

Sub UpdateRanges()
' UpdateRanges Macro
' Keyboard Shortcut: Ctrl+Shift+J
ActiveSheet.Name = "New"
ActiveSheet.ChartObjects("ProfSKU").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!EBITDA_Margin"
    ActiveChart.FullSeriesCollection(2).Values = "==New!Gross_Margin"
ActiveSheet.ChartObjects("Pareto").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Pareto_Revenue"
    ActiveChart.FullSeriesCollection(2).Values = "==New!Pareto_EBITDA"
    ActiveChart.FullSeriesCollection(3).Values = "==New!Pareto_Volume"
    ActiveChart.FullSeriesCollection(4).Values = "==New!Pareto"
ActiveSheet.ChartObjects("UnitMaterials").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Unit_Materials_Desc"
ActiveSheet.ChartObjects("UnitManu").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Unit_Manufacturing_Desc"
ActiveSheet.ChartObjects("UnitSGA").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Unit_SGA_Desc"
ActiveSheet.ChartObjects("UnitEBITDA").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Unit_EBITDA_Desc"
ActiveSheet.ChartObjects("SKUCostStruc").Activate
    ActiveChart.FullSeriesCollection(1).Values = "==New!Unit_EBITDA"
    ActiveChart.FullSeriesCollection(2).Values = "==New!Unit_SGA"
    ActiveChart.FullSeriesCollection(3).Values = "==New!Unit_Manufacturing"
    ActiveChart.FullSeriesCollection(4).Values = "==New!Unit_Materials"
ActiveSheet.ChartObjects("SKUCostStruc100").Activate
    ActiveChart.Parent.Delete
ActiveSheet.ChartObjects("SKUCostStruc").Activate
    ActiveChart.ChartArea.Copy
    Range("AI76").Select
    ActiveSheet.Paste
    ActiveChart.Name = "SKUCostStruc100"
ActiveSheet.ChartObjects("SKUCostStruc100").Activate
    ActiveChart.ChartType = xlColumnStacked100
End Sub

请注意，我已经命名了图表，以防我需要在工作表中移动它们。

当宏命中第一个图表数据源更改行时，我收到“运行时错误1004：应用程序定义或对象定义的错误”：

ActiveChart.FullSeriesCollection(1).Values = "==New!EBITDA_Margin"

如果我然后跑

ActiveChart.FullSeriesCollection(1).Values

（选择“ProfSKU”图表）通过立即窗口VBA抛出“运行时错误13：类型不匹配”。

我不确定为什么会出现这个错误，因为它是我手动记录时产生的完全相同的代码。为什么会发生这种情况？

Answer 1

删除第二个=标志的@ShaiRado就是所需要的。我对图表名称Pareto的引用返回了一个错误，因为这是一个命名区域，而图表名为ParetoChart。奇怪的是宏记录器会添加错误的第二个=。谢谢您的帮助。