Excel vba运行时错误1004复制图像

当某些单元格值发生更改时，我有几个macros复制和粘贴图像。

单步执行代码工作正常，但通过寻址单元来运行有时会出现以下错误：

运行时错误“1004”：

Worksheet类的粘贴方法失败。

我使用下面的代码来复制图像：

With Sheets("Quote") .Shapes("ExampleQuoteImage").Copy .Activate .Paste Destination:=Range("A102") End With 

错误不会发生在我的开发机器上，但在一些用户机器上。

它不会每次都在同一行中断，但会在复制图像的任何位置中断。 macros的其余部分运行正常，如果从中断点运行它。

这可能是一个并发错误或与剪贴板有关？

Answer 1

尝试这个

 With ThisWorkbook.Sheets("Quote") .Shapes("ExampleQuoteImage").Copy DoEvents .Paste Destination:=.Range("A102") End With