Sub createMenus() Dim cmdBar As CommandBar Dim cmdMenu As CommandBarPopup Dim cmdBtn As CommandBarButton Set cmdBar = Application.CommandBars("WorkSheet Menu Bar") 'Set cmdBar = Application.CommandBars(1) With cmdBar Set cmdMenu = .Controls.Add(Type:=msoControlPopup, before:=4, temporary:=True) With cmdMenu .Caption = "工具箱(&K)" With .Controls.Add(Type:=msoControlButton) .Caption = "神奇按钮(&K)" .OnAction = "神奇按钮" .FaceId = 185 End With With .Controls.Add(Type:=msoControlButton) .Caption = "显示所有工作表(D)" .OnAction = "显示所有工作表" .FaceId = 12 End With With .Controls.Add(Type:=msoControlButton) .Caption = "卸载软件(&U)" .OnAction = "卸载" .FaceId = 12 End With End With End With End Sub