色彩を教える人になるための講座「色彩講師養成講座」の魅力とは>>

押したボタンの位置を取得したいのですが、
多数あるボタンのマクロを同じマクロにしたいのです。

自分で検索したところ、下記のところまではわかったのですが
ボタン名をひとつひとつ指定しなくてはなりません。
MsgBox ActiveSheet.OLEObjects("CommandButton1").TopLeftCell.Address

"CommandButton1"の所を、「いま押したボタン名」と指定できれば
できるのではないかと考えていまが、そもそもコマンドボタンの場合
ボタン数の分マクロを入力しなくてはならないので、
オートシェイプのボタンに統一の同じマクロを登録できれば、
そちらのほうがいいです。
どうかよろしくお願いします。

gooドクター

A 回答 (1件)

表示/ツールバー/コントロールツールボックスのボタンでなく、表示/ツールバー/フォームのボタンなら、下記の様に、置かれているアドレスが取得できます。

(マクロは全てのボタンに共通でOKです)なお、当方XL2000です。
Sub ボタン_Click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
End Sub
    • good
    • 8
この回答へのお礼

できました!
ボタンもコピーすればマクロが登録されているし、
簡単に同じボタンを、たくさん作る事ができます。
ありがとうございます!

お礼日時:2008/06/25 23:09

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング