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

Question

我有几个宏可以在某些单元格值更改时复制和粘贴图像。

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

运行时错误“1004”：

Worksheet 类的粘贴方法失败。

我使用以下代码复制图像：

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

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

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

可能是并发错误还是与剪贴板有关？

score 2 · Accepted Answer

试试这个

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

score 0 · Accepted Answer

由于剪贴板错误而发生错误。解决方案是清除图像剪贴板。我通过添加以下代码来做到这一点：

            With [a1]
                .Select
                .Copy [a1]
                Application.CutCopyMode = False
            End With

此代码只是将 a1 复制到 a1 并确保关闭复制模式。它会导致剪贴板被清除。不过，请与 DoEvents 结合使用

2 回答 2