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