添加菜单按钮

参考代码:

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