エクセル コードを教えてください。

質問

シート内にいくつかのボタンを用意しています。
各ボタンに文字を入力していますが、ボタンを押したときに、その文字をセル内に入力するコードを教えていただきたいのです。

いま、現在は、下記のようにしています。
これだと、コードをボタンの分だけ作らなければなりません。
もし、ボタンに入力されているものを入力するコードなら一つだけでいいと思いますが、どのように変更すればよいでしょうか？
よろしくおねがいします。

Sub 角丸四角形2_Click()
ActiveCell.Value = "あいうえお"
End Sub

回答No.1

mitarashi · ベストアンサー

下記でいけると思います。ご参考まで。
ActiveCell.Value = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text