移动图表时出现运行时错误（Excel VBA）

我正在创建一个宏，它将自动为我绘制大量数据。我想它把每页四个图表，但我有一个问题，移动到一个空白图表表的图表。这些图表是散点图

我使用这个命令移动它们，其中VARS（IORG，3）包含空白图表表的名称：

.Location xlLocationAsObject, Vars(iOrg, 3)

这个命令实际上可以像预期的那样工作并移动图表，但我随后得到一个运行时错误：

Run-time error '1004':

The specified dimension is not valid for the current chart type.

如果我点击“debug”并跳过该行，那么该命令在接下来的三个图表上没有问题，只有第一个图表

我在手动移动图表时录制了一个marco，如果我实际尝试使用它，它将产生相同的消息。虽然它实际上也会移动图表

Sub Macro6()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Control"
End Sub

你知道是什么导致了这个错误，以及如何避免它吗？我想不起来以前有过这样的代码，它做了它应该做的，然后产生了一个错误

此外，将图表移动到工作表似乎没有问题，只有一张空白的图表工作表

---

仅供参考：图表类型为xlXYScatterSmoothNoMarkers，Excel 2013。

无法使用简单的散点图进行复制。这张图表有什么不同吗？它是一张xlXYScatterSmoothNoMarkers图表不幸的是，仍然没有复制。你有没有可能添加一张样本图表的截图？2016年的修正对我来说很有效；起初，我看到了与您列出的相同的错误，但在执行这些步骤后，错误没有再次发生。您可以在新工作表上创建图表，而不使用中间图表表吗？