Application.CommandBars.Add Test

MakeToolbar.bas

Attribute VB_Name = "ModuleToolbar"
Option Explicit

Const toolbarName = "Sample"

Sub MakeToolBar()
    Dim myBar As CommandBar
    Set myBar = Application.CommandBars.Add( _
        Name:=toolbarName, Position:=msoBarFloating)
    myBar.Visible = True
    
    Dim myButton As CommandBarControl
    Set myButton = myBar.Controls.Add(Type:=msoControlButton)
    With myButton
        .style = msoButtonIconAndCaption
        .OnAction = "SampleAction1"
        .faceId = 84
        .caption = "サンプル1"
    End With
    
    Set myButton = myBar.Controls.Add(Type:=msoControlButton)
    With myButton
        .style = msoButtonCaption
        .OnAction = "SampleAction2"
        .faceId = 83
        .caption = "サンプル2"
    End With
End Sub