excel VBAで特定の結合セルから画像だけを切り取り、別の結合セルに貼付したい

実現したいこと

教えてください。
業務で使用するexcelなので詳細、スクリーンショットは載せられないのですが

ある作業の「before」「after」の画像を添付するexcelで
「before」の結合セルが写真なしで、「after」にのみ写真がある場合に
「after」の画像を切り取りし、「before」に画像のみ貼り付け(罫線、セル結合は残す)するコードが書きたいのですがうまくいきません。
beforeはB8:E19、afterはG8:J19がそれぞれ結合してあり、4辺に罫線が引いてあります。

beforeのセルをアクティブにしてマクロの記録を使用して試したところ、
ActiveSheet.Shapes.Range(Array("Image 2")).Select
Selection.Cut
ActiveCell.Select
ActiveSheet.Paste
上記のようなコードが出力されたのですが、"Image 2"はその台紙上で画像がたまたま2枚目であるだけなので私が書きたいコードとは違うので困っています。

教えてください。宜しくお願い致します。

発生している問題・分からないこと

beforeのセルをアクティブにしてマクロの記録を使用して試したところ、
ActiveSheet.Shapes.Range(Array("Image 2")).Select
Selection.Cut
ActiveCell.Select
ActiveSheet.Paste
上記のようなコードが出力されたのですが、"Image 2"はその台紙上で画像がたまたま2枚目であるだけなので私が書きたいコードとは違うので困っています。

教えてください。宜しくお願い致します。

該当のソースコード

特になし

試したこと・調べたこと

上記の詳細・結果

PasteSpecial Paste:= xlPasteValues
上記コードを使用するとエラーが出てしまいます。

補足

特になし

コメントを投稿

0 コメント