参考代码:
Private Sub Workbook_Activate()
'1.删除常用工具栏
On Error Resume Next
Application.CommandBars("常用工具").Delete
On Error GoTo 0
Application.ScreenUpdating = False
'2.建立"常用工具"工具栏
Dim ToolBar As CommandBar
Set ToolBar = Application.CommandBars.Add(Name:="常用工具", Position:=msoBarTop, MenuBar:=False, temporary:=False)
ToolBar.Visible = True
'3.在"常用工具"工具栏上添加菜单
Set ToolItem = ToolBar.Controls.Add(Type:=msoControlPopup, ID:=1)
ToolItem.Caption = "关于软件"
Dim ToolSubItem As Variant
'4.在"常用工具"工具栏上添加菜单按钮
Captin = Array("使用帮助", "公司信息")
FaceD = Array(3998, 3737)
'OnActin = Array("F1", "F2")
For i = LBound(Captin) To UBound(Captin)
Set ToolSubItem = ToolItem.Controls.Add(Type:=msoControlButton, ID:=1)
With ToolSubItem
.Caption = Captin(i)
.Style = msoButtonIconAndCaption
.FaceId = FaceD(i)
'.OnAction = OnActin(i)
End With
Next i
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("常用工具").Delete
End Sub