懒码农。。。。。。

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2011年12月6日

摘要: ref :http://www.ozgrid.com/VBA/custom-menus.htmSubcreateMenu()DimcMenu1AsCommandBarControlDimcbMainMenuBarAsCommandBar'DimiHelpMenuAsIntegerDimcbcCutomMenuAsCommandBarControl'(1)Deleteanyexistingone.WemustuseOnErrorResumenextincaseitdoesnotexist.OnErrorResumeNextApplication.CommandBars(" 阅读全文
posted @ 2011-12-06 10:53 阿彬 阅读(409) 评论(0) 推荐(0) 编辑