excel - Excel vba実行時エラー1004画像のコピー

Question

特定のセル値が変更されたときに画像をコピーして貼り付けるマクロがいくつかあります。

コードのステップ実行は正常に機能しますが、セルをアドレス指定して実行すると、次のエラーが発生することがあります。

実行時エラー '1004':

Worksheet クラスの Paste メソッドに失敗しました。

次のコードを使用して画像をコピーします。

    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

2 に答える 2