http://pptdesign.
上面地址的ppa把要做的事情写成命令放到了菜单，这样一个大大简化了VBA导入的重复劳动，打开一个文档直接到菜单里面选择命令就可以执行了。
所以我很想知道“将命令放到菜单栏”的具体代码，请高手指教。。。。。。。

Sub AddNewMenu()
    Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    With ("Worksheet menu bar")
        .Reset
        Set HelpMenu = .FindControl(ID:=.Controls("帮助(&H)").ID)
        If HelpMenu Is Nothing Then
            Set NewMenu = .Controls.Add(Type:=msoControlPopup)
        Else
            Set NewMenu = .Controls.Add(Type:=msoControlPopup, _
                Before:=HelpMenu.Index)
        End If
        With NewMenu
            .Caption = "统计(&S)"
            With .Controls.Add(Type:=msoControlButton)
                .Caption = "输入数据(&D)"
                .FaceId = 162
                .OnAction = ""
            End With
            With .Controls.Add(Type:=msoControlButton)
                .Caption = "汇总数据(&T)"
                .FaceId = 590
                .OnAction = ""
            End With
        End With
    End With
    Set HelpMenu = Nothing
    Set NewMenu = Nothing
End Sub
Sub DelNewMenu()
    ("Worksheet menu bar").Reset
End Sub

不需要用到代码,
在菜单的工具栏上按右键,最下面有一个自定义按钮,拉你想要的命令或自定义命令到菜单上