VBA copyメソッド 図形までコピーされてしまいます。

Question

稚拙な質問かもしれませんが、VBAを勉強し始めたばかりで、ネットで調べてもよく分からない部分が多かったので、こちらで質問させて頂きました。

あるシートから別のシートにセル範囲をコピーしたく、copyメソッドを使用しているのですが、その際に指定したセル範囲にある図形までもコピーされてしまいます。

私としてはセルの内容（書式や値）だけを別シートにコピーしたいのみで、図形まではコピーしたくはないのですが、図形はコピーしない方法はあるのでしょうか。

もし今の私の状況のように図形ごとコピーする方法しかなくても、別シートに貼り付けた先で図形のみを削除する方法でも構いません。

Sheets(1).Range("c5:k47").Copy Sheets(3).Range("a3")

上記のように、一番目のシートのC5からK47をコピーして、三番目のシートのA3へと貼り付けたいのですが、コピーの選択範囲にある図形も三番目のシートに貼り付けられてしまいます。

説明が分かりにく、申し訳ありませんが、教えて頂けますと幸いです。

Answer 1

これでいかがでしょうか。

Sheets(1).Range("c5:k47").Copy
Sheets(3).Range("a3").PasteSpecial

---

Copyメソッドで直接Destinationを指定する場合、
Pasteメソッドの動きをしているようです。
Range.Copy メソッド (Excel)
Worksheet.Paste メソッド (Excel)
Copyメソッドでクリップボードにコピー（図形も含む）
Pasteメソッドでクリップボードのコンテンツを貼り付ける

一方Pastespecialメソッドはコピーされたrangeオブジェクトを貼り付けます。
PasteSpecial メソッド (Excel)
rangeオブジェクトですので図形は含まれません。
その為Pastespecialではセルに関連する情報のみが貼り付けられます。

Comments

[tttkkk]

ありがとうございます！
PasteSpecial を使って図形自体はコピーされないようにすることができました。

そこで疑問なのですが、なぜ copyメソッド だと図形までコピーされてしまうのに、 PasteSpecialメソッド だと図形はコピーされずにマクロが実行されるのでしょうか。

教えて頂けないでしょうか。
お願い致します。

[tttkkk]

そういうことだったんですね。

コンテンツを全て貼り付けるのか、Rangeオブジェクトのみを貼り付けるのかの違いがVBAの処理の違いとして実感することができました、

非常に分かりやすい説明ありがとうございました。

Answer 2

Excel VBA を学ぶなら moug モーグ | 即効テクニック | セルの値だけをコピーする

こういうことかな