Ribbon生成器,给初学者一份好礼!

雅林源居

代码一些来源于网上,一部分自己修改!
给识货的你,一份轻松写07以上版Ribbon命令(菜单命令)!!!








该贴已经同步到 雅林源居的微博

雅林源居

升级下雅林Rib工具
以下是操作演示


以下是升级文件
雅林Rib工具.rar (468.46 KB, 下载次数: 1740)

2017-5-27 18:07 上传

点击文件名下载附件

补充内容 (2017-6-12 10:55):
请用31楼升级版
升级版操作更简单
看操作演示,还不会,请再看4页(34-36楼)

VBA万岁

做得不错，可惜无法查看代码！谢谢！

雅林源居

使用步骤:
1.打开
2 .进入界面
3. 调用XLM选择命令,点生成 ,生成CustomUI工作表及标题
  4.自己按标题放入内容,点 ,即可生成D盘: CustomUI文件
    也就说CustomUI.xlm文件命令可以在单元格内操作完成
5.新建一个启用宏的Excel文件，并命名为MyCustomUI.xlsm
6.在MyCustomUI.xlsm图标上单击右键，选择“重命名”，在文件名后添加“.zip”扩展名，使其变为一个压缩文件
7.双击该压缩文件，打开压缩包，将D盘: CustomUI文件夹拖到该压缩包中
8.将压缩包中的_rels文件夹拖至桌面
9.打开桌面中的_rels文件夹，然后用记事本打开其中的.rels文件
10.在.rels文件的最后一个</Relationships>之前，添加下面的XML：
<Relationship Id="customUIRelID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
11.保存该.rels文件并关闭
12.将修改后的_rels文件夹拖回MyCustomUI压缩包中。如果出现提示，则选择是，覆盖原文件。关闭压缩包。
13.将MyCustomUI.xlsm.zip的.zip扩展名删除
14.在MyCustomUI.xlsm中，按Alt+F11组合键打开VBE，并插入一个标准模块，添加下面的代码供回调使用

Sub Dyong(control As IRibbonControl)
    '你的命令
End Sub
注:图标名称可引用
这样是不是写Ribbon菜单很容易!!

补充内容 (2014-5-11 13:45):
再结合OfficeCustomUIEditorSetup,写Ribbon命令(菜单命令),就更简单
具体查看10楼操作

雅林源居

不明白,就参照例子
以下是例子生成的菜单图


补充内容 (2014-5-11 13:42):
注意:例子中,size(图标大小(Normal,Large))字母改小写(normal,large)点 修改生成XLM ,即可,在XLM中是分大小写

ljlmmcl

啥东西，这么好，不容错过！

nestboy

2013测试了，不能用，，，，

雅林源居

2013试过,能用的,或许你的硬盘不存在D盘

loquat

学习代码来的。感谢分享

雅林源居

是可以的,注意:例子中,size(图标大小(Normal,Large))字母改小写(normal,large)点 修改生成XLM ,即可,在XLM中是分大小写

雅林源居

再结合OfficeCustomUIEditorSetup,写Ribbon命令(菜单命令),就更简单
步骤:新建.XLSM文件(如工作簿1),保存,关闭.
       再打开Custom UI Editor For Microsoft Office,打开工作簿1
      把用命令生成的命令 D:\customUI\customUI.xlm,用记事本打开,复制
    粘贴到Custom UI Editor For Microsoft Office中

保存
打开:工作簿1

大功告成!!!
  安装OfficeCustomUIEditorSetup,请先下载Microsoft .NET Framework 3.5 Service Pack 1（完整软件包）
http://www.microsoft.com/zh-cn/download/details.aspx?id=25150