企业新闻

Excel Ribbon 开发利器-Ribbon Commander

  • 发布时间:2019-04-25 文章来源:12bet官网备用网址 阅读次数:5411
  • 本帖最后由守柔于2015-7-1206:28编辑三、动态创建菜单(RibbonCommander学习笔记之三)在中,要创建一个动态的菜单,不能直接使用Menu控件,而应该使用dynamicMenu,通过VBA回调反馈给控件XML代码从而实现在运行时创建菜单。 反观利用RC组件创建动态菜单时,方法与Office2003无异。 模块名:mdlRCDynamicMenu引用()自定义功能区之动态菜单(1To4,1To2)AsStringDimIAsIntegerastrNames(1,1)=AccessastrNames(2,1)=OutlookastrNames(3,1)=PowerPointastrNames(4,1)=WordastrNames(1,2)=MicrosoftAccessastrNames(2,2)=MicrosoftOutlookastrNames(3,2)=MicrosoftPowerPointastrNames(4,2)=IIf(Val()12,MindMapExportWord,FileSaveAsWordDocx)SetmyUI=(MS,ExampleforRC,DispatchScope_global)创建一个功能区(全局)清空SetmyTab=.(NewrxTab)创建一个Tab(选项卡)=MSSetmyGroup=(NewrxGroup)创建一个Group(组)=MsOfficeSetmyMenu=(NewrxMenu)创建一个Menu(菜单)====(NewrxMenuSeparator).Title=MicrosoftOffice创建一个菜单分隔条ForI=1ToUBound(astrNames,1)遍历数组行SetmyButton=.(NewrxButtonRegular)创建一个按钮=astrNames(I,1).Tag=.=astrNames(I,2).OnAction=_delegate(mySub4)刷新功能区EndWithEndSubPrivateSubmySub4(controlAsIRibbonControl)回调,单击按钮时执行的过程SelectCaseUCase$()oveCustomUI()删除自定义功能区(=MS)运行后的结果如图5所示。