参考各位前辈做的自定义office2007和office2010功能区的帖子，经过不断摸索，现做出EXCEL2013版本的自定义功能区再次特
别感谢?佛山小老鼠?老师，灵感全来于此！！！！！下面进入正题：第一步：创建EXCEL启用宏的工作簿?自定义.xlsm?打开VBE编
辑器，插入模块，建立2个测试的宏Sub测试1(controlAsIRibbonControl)?msgbox"这是测试宏1
"EndSubSub测试2(controlAsIRibbonControl)msgbox"这是测试宏2"EndSub
保存并关闭自定义.xlsm工作簿第二步：重命名自定义.xlsm为自定义.xlsm.zip??(就是加一个.zip的后
缀)?1.右键用压缩工具打开文件，用记事本打开_rels文件夹里的.rels文件?2.在最后一句
前插入以下代码：crosoft.com/office/2006/relationships/ui/extensibility"Target="c
ustomUI/CustomUI.xml"/>3.关闭记事本，提示保存，选择保存?4.关闭压缩文件，提示在压缩文件中更新变更，都
点确定第三步：新建一个customUI文件夹，新建一个文本文档?打开文本文档另存为：ucstomUI.xml??,编码选择为：UT
F-8，保存到customUI文件夹里?删除那个新建的文本文档??用记事本打开customUI.xml文件，把以下代码复制进去后保
存tomui">???<
buttonidMso="FileSave"/>>???自定义选项卡"insertBeforeMso="TabHome">?">?测试1"/>??group>??pid="mygroupB"label="常用工具">label="撤销"/>ontrolidMso="CellAlignmentOptions"size="large"label="格式"/>ontrolidMso="ConditionalFormattingMenu"size="large"label="条件格式
"/>idMso="DataValidationMenu"size="large"label="数据验证"/>idMso="ViewFreezePanesGallery"size="large"label="冻结窗格"/>?up>?ic"??label="VBE编辑器"/>?/>???tabs>?复制代码下面分别解释各代码的意思：//schemas.microsoft.com/office/2006/01/customuihttp://schemas.mic
rosoft.com/office/2006/01/customui">?ue">?（这个是隐藏所有系统功能区，如果不想隐藏可以写=false）?（这里开始自定义快捷功能区，就是最顶端的位
置）??（保存按钮）Mso="PrintPreviewAndPrint"/>（打印预览和打印按钮）??>?（快捷功能区定义完毕）?（这里开始定义主功能区，以/tabs结束）?label="我的自定义选项卡"insertBeforeMso="TabHome">?（定义选项卡的名称和位置，这里定义在开始选
项卡之前）?（第1组：这里定义组名称，注意所有的组名称和ID都不
能重复）?这2个按钮使用的是自己定义个个性图标，使用方法请看第四步，如果想用系统自带的图标需要修改image改成image
MSO,然后省略第四步，图片名称及控件名称后面有附件?"size="large"/>?（自定义按钮的ID，图片，指定宏size="large"表示是大图标显示）?id="c2"?image="B"?label="测试宏2"/>?（不想大图标显示就像这样去掉size=）??（
一个组定义完毕之后加上这么1句）?oup>?（第2组：这一句表示加了一整个系统自带的组进去了，下面添加耽搁的系统按钮）?abel="常用工具">?（第3组：添加单个系统按钮）bel="撤销"/>?（撤销按钮）?/>（恢复按钮）el="格式"/>（格式）large"label="条件格式"/>?（条件格式）"label="筛选"/>?（筛选）rge"label="数据验证"/>?（数据有效性）ry"size="large"label="冻结窗格"/>?（冻结窗口）?upD"label="VBA开发">?（第4组：也是系统按钮）??abel="VBE编辑器"/>?（顾名思义，不一一解释了）?l="录制新宏"/>??（
第4组结束）?（第一个选项卡结束）?（全部结束）?第四步：再
customUI文件夹里再建2个文件夹images和_rels1.在images文件夹里加2张个性的png格式的图标分
别命名001.png??002.png2.在_rels文件夹里建一个文件，命名：CustomUI.xml.rels，方法参
照第三步，然后把以下代码复制进去："yes"?>ckage/2006/relationships">as.openxmlformats.org/officeDocument/2006/relationships/image"Ta
rget="images/001.png"/>openxmlformats.org/officeDocument/2006/relationships/image"Targe
t="images/002.png"/>复制代码第五步：再用压缩工具打开自定义.xlsm.zip
?把做好的customUI文件夹拖到压缩文件里，保存?然后再把自定义.xlsm.zip??改名成：自定义.xlsm?打开文件，
可能有2次提示，每次都点确定?文件打开之后，你会看到最顶端你的文件名会显示自定义.xlsm[修复的],出现这种情况，你只需把文件
另存为启用宏的工作簿就正常了！！！?再打开文件即可看到效果基本功能已经完成，这个只能让你现在做的这个文件的功能区改变，如果想要让你
的电脑整个应用这个设置请继续往下看：第六步：把你做好的文件做成加载宏，并做一个安装和卸载的功能：?1.新建一个文件夹，取名为exc
el2013功能区安装与卸载?2.把自定义.xlsm工作簿另存为加载宏工作簿，保存类型选择“Excel加载宏（.xlam)
",保存在excel2013功能区安装与卸载文件夹里，文件名不变?3.新建一个启用宏的工作簿（.xlsm),文件名为“201
3安装””，在thisworkbook模块里放入以下代码PrivateSubWorkbook_Open()?AddIns.AddFilename:=ThisWorkbook.Path&"\自定义.xlam"?Application.AddIns("自定义").Installed=1?EndSub复制代码?然后保存，关闭工作簿?4.依照第3步，建一个2013卸载启用宏的工作簿，在thisworkbook模块里放入以下代码PrivateSubWorkbook_Open()OnErrorResumeNext?AddIns("自定义").Installed=FalseEndSub复制代码?然后保存，关闭工作簿OK，整个制作过程完毕 |
|
