押したボタンの位置取得(共通のマクロ)

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

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

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

No.1 回答者： mitarashi 回答日時： 2008/06/25 22:10

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

（マクロは全てのボタンに共通でＯＫです）なお、当方XL2000です。
Sub ボタン_Click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
End Sub

この回答へのお礼

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

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