マクロ実行→マクロ実行ボタン作成

Question

マクロ実行中にボタンを作成して、押下すればマクロが流れるように関連付けも処理の中で行いたいのですが、どのようなやり方でできるでしょうか？

Answer 1

Excelマクロの前提で回答します。
「マクロの記録」機能を使って記録してみました。

Sub Macro1()
    ActiveSheet.Buttons.Add(132.75, 69.75, 111.75, 23.25).Select
    Selection.OnAction = "test"
    Selection.Characters.Text = "ボタン"
    With Selection.Characters(Start:=1, Length:=4).Font
        .Name = "ＭＳ Ｐゴシック"
        .FontStyle = "標準"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
End Sub

多分本当に必要なのは最初の3行だけだと思います。
1行目のAddの後は座標ですかね。試してみてください。
2行目の"test"の部分は事前に作成したマクロ名称になります。

Answer 2

以下の記事を参考にすると良いと思います。

第1講 始めようVBA！

ボタンを作って、そのボタンを押すとマクロが実行されるようにする手順が丁寧に説明されています。

Comments

[coko1]

「マクロ実行中に」ボタンを作成して関連付けも行うが質問内容になります。
どのように作ることができるのかの方法がわからないので．．．
手動でボタンを作って関連付けがしたいわけではありません。

[coco_bauer]

手動でボタンをつくる過程を「マクロの記録」でVBAのコードとして記録できます。　記録されたコードを実行すれば、手動で行ったと同じ動作が行われます。　記録されたコードには冗長(なくても構わない）な部分が少なくないので、ある程度の修正は必要です。

Answer 3

マクロでボタンを挿入する

Sub Sample1()
    With ActiveSheet.Buttons.Add(Range("B2").Left, _
                                 Range("B2").Top, _
                                 Range("B2:C3").Width, _
                                 Range("B2:C3").Height)
        .OnAction = "Sample"
        .Characters.Text = "Click me"
    End With
End Sub

Sub Sample()
    MsgBox Now
End Sub

Sample1を動かした後にできたボタンをおせばSampleが動きます

Comments

[coko1]

sampleを実行できません。このブックがマクロを使用でいないか、またはすべてのマクロが無効になっている可能性があります。と表示されてしまいました。マクロを実行しているブックでの処理なので使用できないということはないと思うのですが．．．