Const TOOLBARNAME As String = "我的工具栏"

Sub 加载工具栏()
Dim TBar As CommandBar
Dim Btn As CommandBarButton
'如果存在则删除已存在的工具栏
On Error Resume Next
CommandBars(TOOLBARNAME).Delete
On Error GoTo 0
'创建工具栏
Set TBar = CommandBars.Add
With TBar
.Name = TOOLBARNAME
.Visible = True
End With
'添加按钮
Set Btn = TBar.Controls.Add(Type:=msoControlButton)
With Btn
.FaceID = 300
.Caption = "这里是Macro1的提示"
.OnAction = "Macro1"
End With
'添加另一个按钮
Set Btn = TBar.Controls.Add(Type:=msoControlButton)
With Btn
.FaceID = 25
.Caption = "这里是Macro2的提示"
.OnAction = "Macro2"
End With
End Sub
Sub 卸载工具栏()
On Error Resume Next
CommandBars(TOOLBARNAME).Delete
On Error GoTo 0
End Sub
Sub Macro1()
MsgBox "这里是Macro1"
End Sub
Sub Macro2()
MsgBox "这里是Macro2"
End Sub