[ツリー表示へ] [ワード検索] [Home]
タイトル ： 実行時エラー '1004' データを貼り付けできません。 投稿日 ： 2018/02/22(Thu) 16:42 投稿者 ： ほほ
| お世話になります。 省略箇所があるかと思いますが、以下の部分でエラー発生します。 お気づきの点がありましたらご指導お願いいたします。 Dim adr2 As String 'EXCELオブジェクト定義 Dim Ws1 As Worksheet ' Set Ws1 = Worksheets("sheet1") Sheets("sheet1").Activate adr2 = Range("A65536").End(xlUp).Row For i = 2 To adr2 DLngBmpFileNo = FreeFile Open DStrBmpPath & DStrParaFIle For Output As DLngBmpFile Print #DLngBmpFile, Ws1.Cells(i, 1).Value & "," & DStrBmpPath & DStrBmpFile Close DLngBmpFile '/***************ここを変更したらエラーでるようになりました (?) ******** With ActiveSheet.Pictures.Insert(Filename:="C:\test\test.Bmp") .CopyPicture 'クリップボードにコピー .Delete '画像をいったん削除 End With ActiveSheet.Paste '画像を貼り付け '***************ここを変更したらエラーでるようになりました (?) ********/ Next i |
をクリックするとツリー全体を一括表示します） - 実行時エラー '1004' データを貼り付けできません。 - ほほ 18/02/22-16:42No.11958