tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。