复制/粘贴图表会导致间歇性错误

Question

我正在尝试在同一Excel工作簿中的工作表之间复制/粘贴多个图表。每次按下按钮时，我执行此操作约50至60次，并且大多数情况下，除了1或2个图表外，其他所有图表都没有问题地复制（有时甚至全部复制）。但是，有时会出现错误（1004，图表类的复制方法失败）。用户要做的只是点击调试，然后再次运行，它将正常运行，因此它不像我在尝试做excel无法完成的事情。

With wsOrigin.ChartObjects("chartName").Chart
    ' add data and format the sheet
    'transfer to CompCarBuild as photo
    .CopyPicture
End With

' paste to the sheet and specify the destination range
ws.Paste ws.Range("A1")
' rename the plot
Set sh = ws.Shapes(ws.Shapes.Count)
sh.Name = "lineplot" & i

在工作表之间复制/粘贴是否有更好的方法？我不需要将粘贴的图表作为图片，但是.copy的效果没有比.copypicture好。有时粘贴行也会发生错误，但这很少见。