我正在研究一个宏，将数据从一个工作簿移动到另一个工作簿中，其中包括一些图表。为防止新工作簿损坏，我想将这些图表粘贴为图片。
我在代码中复制和粘贴两个工作簿之间的图表时遇到错误，但错误不断发生在我的代码的不同行上（通常在复制或粘贴操作中，但通常在涉及不同图表的不同行上）。其中一个错误为“无法获取图片类的粘贴属性”。另一个读取“对象'ChartArea'的方法'复制'失败。”
如果我进入调试模式并按 F5 继续运行代码，宏会设法完成导致错误的操作，并顺利完成其余代码。
'Copy/Paste Chart 4
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("Q3").Select
ActiveSheet.Pictures.Paste.Select
'Copy/Paste Chart 5
ActiveSheet.ChartObjects("Chart 4").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("Q3").Select
ActiveSheet.Pictures.Paste.Select
...
'Copy/Paste Chart n
Windows(2).Activate
ActiveSheet.ChartObjects("Chart n").Activate
ActiveChart.ChartArea.Copy
Windows(2).Activate
Range("X3").Select
ActiveSheet.Pictures.Paste.Select