VBAでセルを指定した画像のコピー＆ペーストを繰り返したい

1行（例としてA1からG1まで）のそれぞれのセル内におさまっている画像を、
別シートの1列（A1からA7）のそれぞれのセル内にはりつける作業を
VBAで自動化できないかと考えています。

コピー元のA1の画像を別シートのA1へ、
コピー元のB1の画像を別シートのA2へ、と繰り返して
最後はコピー元のG1の画像を別シートのA7に貼り付ける形です。
画像サイズについては考慮しなくて大丈夫です。

VBAについてまだ学習歴が浅く画像の扱いに手を焼いています。
どなたか知恵を貸していただけるとありがたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2020/10/05 15:08

こんにちは

＞それぞれのセル内におさまっている画像を、～～
セル内に納まっているのなら、対象となるセル範囲をコピペすれば、画像もそのままコピペできるはずです。
画像のプロパティで「セルに合わせて移動しない」が設定されている場合には、セルの複製では画像は複製できませんのでご注意。

具体的な記述法等は、セル範囲のコピペを「マクロの記録」で取ってみれば、だいたいわかると思います。
基本的には、
　Range1.Copy Destination:=Range2
で、できるものと思います。

この回答へのお礼

画像だからと勝手に難しく考えていましたが
シンプルな方法で解決できることがわかり、とても助かりました！
ありがとうございます。

お礼日時：2020/10/06 21:33