excelでマクロで図形をコピー、張り付ける

Ｅｘｃｅｌの画面で 挿入→図形で 作成した図形をマクロを使って コピーし、任意の箇所に張り付けたいのですが、図形が認識されないのか マクロが動作しません。どうしたらできるでしょうか？

No.2 ベストアンサー 回答者： m_and_dmp 回答日時： 2014/11/28 18:33

マクロコードを拝見しないとアドバイスは難しいのですが、少し考えて見ます。

作成した図形には名前があります。図形を選択して「名前ボックス」を見ると図形の名前が分かります。（例： オートシェイプ 2）
図形を選択してコピーし、別の場所に貼り付ける動作を記録マクロで作成すると、次のようになります。
ActiveSheet.Shapes("AutoShape 2").Select
Selection.Copy
Range("AX6").Select
ActiveSheet.Paste
問題は、一行目の図形を選択するところにあると思います。
ActiveSheet.Shapes.SelectAll　を使えば名前の分からない図形を選択することができます。シート上に図形が一つしかないときは .SelectAll を使うといいと思います。
図形が複数ある場合は、すべての図形の名前を取得して、その中の任意の図形を操作することができますが、図形の名前と図形の形の関係が分からないので、この方法は使えないでしょう。

マクロを起動する前にあらかじめ、コピーする図形を選択しておくと、つぎのようになります。この方法が実用的だと思います。
Selection.Copy
Range("H3").Select
ActiveSheet.Paste

「任意の場所にコピーする」には、インプットボックスでコピーする場所のセルの番地を入力するようにしたらいいでしょう。

この回答へのお礼

ありがとうございました。
selection.copy
range("・・").select　
activesheet.paste でやってみたらすごくうまくできました。他の方法もこれから研究してみますね。

お礼日時：2014/12/01 11:38

No.1 回答者： te12889 回答日時： 2014/11/28 15:50

以下のような情報がありました。

参考URL：http://answers.microsoft.com/ja-jp/office/forum/ …

この回答へのお礼

ありがとうございました。

お礼日時：2014/12/01 11:40