为模板添加菜单

1、打开Excel
2、Alt+F11
3、双击ThisWorkbook，输入——VBScript code
        Private Sub Workbook_Open()
            Call AddMenus
        End Sub
4、右键，插入模块——VBScript code
    Sub AddMenus()
        Dim myCmdBar As CommandBar
        Dim myMenu As CommandBarControl
    
        On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("&myMenu").Delete
        On Error GoTo 0
    
        Set myCmdBar = Application.CommandBars("Worksheet Menu Bar")
        Set myMenu = myCmdBar.Controls.Add(Type:=msoControlPopup, temporary:=True)
        myMenu.Caption = "&myMenu"
        With myMenu
            .OnAction = "HiWorld"
        End With
    End Sub

    Sub HiWorld()
        MsgBox "Hi!World."
    End Sub