VBAの貼り付け機能で質問させていただきます。

質問

VBAの貼り付け機能で質問させていただきます。

あるブックのシート全体の内容をコピーして、
別のブックに貼り付ける処理を作成していますが、
コピー元のシートにある画像だけが貼り付けされずに困っています。
ホームページで探してやってみましたが、どれもうまくいきませんでした。
ご存じの方がいましたら、助言をお願いします。

下の記述で画像以外は貼り付けできています。

Sub 貼り付け()

Worksheets("コピー元シート").Select
Cells.Select
Selection.Copy

Workbooks.Open Filename:="C:￥コピー先.xls"
Workbooks("コピー先.xls").Activate
Worksheets("コピー先シート").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:= False, _
Transpose:=False

End Sub

回答No.2

myRange · ベストアンサー

PasteSpecialメソッドの使い方を間違っています。
この機会にヘルプをじっくり眺めてみることをお奨めします。

次のような方法も使えます。

'-------------------------------------------------　
Sub 貼り付け()

　　Workbooks.Open ThisWorkbook.Path & "\コピー先.xls"

ThisWorkbook.Worksheets("コピー元シート").Cells.Copy _
　　Workbooks("コピー先.xls").Worksheets("コピー先シート").Range("A1")

End Sub
'----------------------------------------------

ThisWorkbookは、コピー元のブックのことですから
例えば、Workbooks("コピー元.xls")としてもＯＫです。

また、
Workbooks("コピー先.xls")、は、ActiveWorkbookでもＯＫですが
分かりやすいようにブックを明示しておきました。

以上です。

お礼

ご返事が遅くなりまして、大変申し訳ありませんでした。

PasteSpecialメソッドの変更でうまくできました。

また、ご指摘いただいたPasteSpecialメソッドの使い方を、
これを機に勉強しなおしてみました。

ご回答いただき大変助かりました。

回答No.1

hoiho14000

Workbooks.Open Filename:=ThisWorkbook.Path & "\コピー先.xls"

ThisWorkbook.Worksheets("Sheet1").Activate
Cells.Select
Selection.Copy
Windows("コピー先.xls").Activate
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False

パスは修正してください

お礼

ご回答ありがとうございました。
また、ご返事が遅くなってしまい申し訳ありませんでした。

別の方から、PasteSpecialメソッドの誤りをご指摘いただき
思い通りの処理ができるようになりました。