Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


261 / 76732 ←次へ | 前へ→

【82139】Pasteメソッド失敗
質問  あおこ  - 23/4/4(火) 15:59 -

引用なし
パスワード
   いつも参考にさせていただいています。

マクロ実行ブック内のシートの図形"Picture 1"を、別ブックのシート全てにコピペしようと下記のコードを組んでいますが、「ActiveSheet.Paste '←とまる」のところで「実行時エラー1004 Pasteメソッドが失敗しました」のエラーが出ます。

再実行するときちんと図形が貼り付けられており、また、1行ずつ実行するとエラーにならないので、コードはあっているのではないかと思うのですが・・。

解消方法がありましたら、ご教示いただけるとありがたいです。

よろしくお願いいたします。


Sub 表加工()

〜宣言〜
 
 Set wb1 = ThisWorkbook
 Set sh2 = wb1.Worksheets("手配表用")’コピー元シート
   
 Call ChangeCurPath ''カレントディレクトリをネットワーク上のパスにチェンジ  
  
'対象ブックを選択します
OpenFileName = Application.GetOpenFilename("Microsoft Excel ブック
,*.xls*")
  If OpenFileName = "False" Then Exit Sub
      
  On Error GoTo 0
    
  '読み込み
   Set wb2 = Workbooks.Open(OpenFileName) 'wb2 読込元  
   Application.ScreenUpdating = False '画面表示を止める

   Dim WS As Worksheet
   For i = 1 To wb2.Worksheets.Count '全てのシートを読み込みます。
  
   Set WS = wb2.Worksheets(i)
    
   '図形コピー
   sh2.Activate 'マクロ実行ファイルのコピー元シート
   ActiveSheet.Shapes("Picture 1").Select
   Selection.Copy
   wb2.Activate 'コピー先ファイル
   WS.Activate
   WS.Range("U1").Select
   ActiveSheet.Paste '←とまる
  
   Next i
  
   wb2.Worksheets(1).Select
  
   Application.ScreenUpdating = True
   Application.StatusBar = False
   MsgBox "処理が終了しました。"
  
  
  End Sub
112 hits

【82139】Pasteメソッド失敗 あおこ 23/4/4(火) 15:59 質問[未読]
【82140】Re:Pasteメソッド失敗 MK 23/4/4(火) 19:12 発言[未読]
【82141】Re:Pasteメソッド失敗 あおこ 23/4/5(水) 11:40 お礼[未読]

261 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free