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