実現したいこと
教えてください。
業務で使用する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 コメント