フォームで作成したボタンのCharacters.Textを取得するマクロ

エクセル９７です。
フォームでワークシート上に作成したボタンのCharacters.Textに記入した文字列をそのボタンをクリックした場合取得するマクロはどのようなものになるでしょうか？
ちなみにこう書いたらペケでした。

Sub test()
Dim SN As String
SN = ActiveSheet.activebuttons.Characters.Text
MsgBox SN
End Sub

No.3 ベストアンサー 回答者： shishishishi 回答日時： 2003/09/05 10:14

すでに解決されたようですが、以下でやるとボタンに限らず、図形やチェックボックスなどのオブジェクトの名前がクリックで取得できます。

Sub TEST_Click()
MsgBox ActiveSheet.DrawingObjects(Application.Caller).Caption
End Sub

この回答へのお礼

なるほど！
これですべてOKです！！

お礼日時：2003/09/05 15:48

No.2 回答者： imogasi 回答日時： 2003/09/04 23:33

2000ですが

右クリックで、マクロの登録でaaa()を登録する。
Sub aaa()
ActiveSheet.Buttons.Select
nam = Selection.Name
Selection.Characters.Text = "www"
MsgBox Selection.Characters.Text
End Sub
ボタンをクリックするとｗｗｗと表示されましたが。

この回答へのお礼

ありがとうございます。
この方法でも可能でしたが、シートを保護するとエラーになってしまうので今回はNo1の方の方法でやることにします。
おせわになりました。

お礼日時：2003/09/05 09:17

No.1 回答者： kajkaj 回答日時： 2003/09/04 14:54

マクロをいじくって実験してみました

呼び出しもとを特定することで可能かと思います

Sub test()
Dim SN As String
SN = ActiveSheet.Buttons(Application.Caller).Characters.Text
MsgBox SN
End Sub

こうやったらできたというだけなのですべての場合に応用できるかどうかはわかりませんm(_ _)m

この回答へのお礼

ありがとうございます。
うまく動きました。
どういう場合に適用できないかはわかりませんが、今回とりあえず教えてもらった方法で対処することにします。
助かりました。

お礼日時：2003/09/05 09:19