excel2003 增加菜单

 添加一菜单：

工具 ->

自定义... ->

命令(tab) ->

重排命令(Btn) ->

工具栏 （Radio Btn） ->

工作表菜单栏 (dropdown list) ->

增加(Btn)  ->

新菜单 (Select) ->

确定(Btn) ->

更改所选内容 (Btn) -> 这里可以改名、删除、指定宏等 

给菜单增加子菜单：

菜单栏选之前建的 -> 增加 -> 宏 -> 自定义菜单项 -> 确定 

VBA代码方式增加菜单：

    Dim cbMainMenuBar As CommandBar

    Dim cbcCutomMenu As CommandBarControl

    On Error Resume Next

    Application.CommandBars("Worksheet Menu Bar").Controls(

"新菜单(&N)").Delete

    On Error GoTo 0

    Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")

    Set cbcCutomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)

    cbcCutomMenu.Caption = cutomMainMenuText

    With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

        .Caption = "子菜单1(&P)"

        .OnAction = "子菜单1事件"

    End With

    With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

        .Caption = "子菜单1(&H)"

        .OnAction = "子菜单2事件"

        .BeginGroup = True

    End With

    With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

        .Caption = "子菜单3(&S)"

        .OnAction = "子菜单3事件"

    End With

 

删除菜单VBA代码：

    On Error Resume Next

    Application.CommandBars("Worksheet Menu Bar").Controls("新菜单(&N)").Delete

    On Error GoTo 0