貼り付けられている写真の同位置同サイズのコピー

添付のように貼り付けられている写真を別のEXCELに同じ位置、同じサイズで貼り付ける方法はありますでしょうか。
シンプルに以下のコードのように貼り付け部左上に設定しているとずれてしまう場合が出できます。


Sheets(1).Shapes.SelectAll
Selection.Copy
ActiveSheet.Paste Destination:=Sheets(2).Range("D10")

なお、シート自体のコピーは別作業との兼ね合いから不適であるため、別の方法でお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

現在の図形の位置を取得し、貼付け後、貼り付けた図形の位置を取得した値に設定すればよいのでは。
1つ1つ行うのが手間であれば、一旦すべての図形をグループ化して、位置を決めたあと、グループ解除という方法もあるかと

投稿2021/09/17 05:51

総合スコア761

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

関連した質問