ボタンを設置する

トップページ（目次）

161.ボタンを設置する

＜実行前後＞

→

Sub ボタンを設置()
    
    With ActiveSheet.Buttons.Add(Range("A1").Left, _
                                 Range("A1").Top, _
                                 Range("A1").Width, _
                                 Range("A1").Height) 'A1にサイズを合わせる
        .Characters.Text = "ボタン名"
        .OnAction = "実行したいSub名"
    End With

End Sub

A1に左・上・幅・高さを合わせているので、A1を変えれば調整可能