粘贴图形时对象“ _Worksheet”的方法“粘贴”失败

Question

我想从工作表中复制一个图形（“复制图形”），然后将其粘贴到另一个工作表中（“粘贴图形”）作为图片。这是我所拥有的：

Dim ws as worksheet
Set ws = Worksheets("Paste Graph") 

Worksheets("Copy Graph").ChartObjects("Chart 1").Activate
ActiveChart.Parent.CopyPicture
ws.Paste Destination:=ws.Range("E16")

它可以在我的计算机上运行，​​但是当我在另一台计算机上运行它时，出现错误：“对象'_Worksheet'的方法'Paste'失败”

我想这是因为使用了“激活”。我应该在粘贴之前激活目标范围吗？

还有没有办法改善代码？我觉得崩溃很容易。

谢谢！