タイトル : Re^2: 実行時エラー '1004' データを貼り付けできません。 投稿日 : 2018/02/23(Fri) 08:03 投稿者 : ほほ
> ここは VB.NET 向けの掲示板です。 > Excel VBA の質問の場合は、隣の掲示板に移動をお願いします。 すみません。今回はこちらで質問させてください。 次のように変更しましたら次のエラーでるようになりました。 記載方法に誤りなどないでしょうか? 実行時エラー '1004' 'Paste'メソッドは失敗しました 'Worksheet'オブジェクト 参考までにですが、貼り付ける画像数は約1000でして 300枚貼り付けしたあたりでいつもエラーでます。 Dim adr2 As Integer For i = 2 To adr2 Ws1.Cells(i, 2).Select '前回記載していませんでした。 '/***************ここを変更したらエラーでるようになりました (?) ******** With Ws1.Pictures.Insert(Filename:="C:\test.\test.Bmp") .CopyPicture 'クリップボードにコピー .Delete '画像をいったん削除 End With Ws1.Paste '画像を貼り付け '***************ここを変更したらエラーでるようになりました (?) ********/ Next i |