[[20070320230858]]　『マクロによるオートシェイプのコピー』（疑問を持った３６歳）　ページの最後に飛ぶ

『マクロによるオートシェイプのコピー』（疑問を持った３６歳）

 ３回目の質問です。

 シート上にあるオートシェイプを、ユーザーフォーム上の操作で、
 同シート上の指定したセルにコピー出来るのでしょうか。

 仮に、オートシェイプは「楕円１」とします。
 「楕円１」は「sheet1」に存在します。
 「form1」の「オプションボタン1」をチェックすると、「sheet1」
 のセル「A1」にコピーされ、「オプションボタン2」をチェックす
 ると、「B1」にコピーされる。
 と言うのはどうでしょうか？

 オートシェイプがオブジェクトとなり得るのか、なり得たとしても
 どういう構文なのかが判りません。

 是非ご鞭撻の程をお願い申し上げます。

 下記が多少、参考になるでしょうか。
 オートシェイプ（下記では直角三角形と四角）を指定セルに
描画しています。（夕焼）
 マクロの記録をしても参考コードを得ることが出来ます。

 御回答ありがとうございます。
 一寸簡単に、フォームのコマンドボタンをクリックすると、
 セルA1にコピーで作って見ました。

 Private Sub CommandButton1_Click()
  ActiveSheet.Shapes("楕円 1").Copy
  Range("a1").PasteSpecial

 これで動きました。ありがとうございます。
 オートシェイプは「Shapes」ですね。

コメント返信：