|
いつも参考にさせていただいています。
マクロ実行ブック内のシートの図形"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
|
|