Sub ボタンを設置する_フォントサイズとフォント名を指定する()

    With ActiveSheet.Buttons.Add(Range("A1").Left, _
                                 Range("A1").Top, _
                                 Range("A1:B4").Width, _
                                 Range("A1:B4").Height)
        .Characters.Text = "ボタン名"
        .OnAction = "実行したいSub名"
        .Characters.Font.Name = "MS ゴシック" 'フォント名
        .Characters.Font.Size = 24 'フォントサイズ
    End With

End Sub