Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

141 / 76612

←次へ　｜　前へ→


	【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

82 hits

▼

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