摘要:
ref :http://www.ozgrid.com/VBA/custom-menus.htmSubcreateMenu()DimcMenu1AsCommandBarControlDimcbMainMenuBarAsCommandBar'DimiHelpMenuAsIntegerDimcbcCutomMenuAsCommandBarControl'(1)Deleteanyexistingone.WemustuseOnErrorResumenextincaseitdoesnotexist.OnErrorResumeNextApplication.CommandBars(" 阅读全文