|
|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 up360 于 2018-4-27 23:32 编辑
我的做法如下
第一步：在桌面上创建一个名为customUI的文件夹
第二步： 打开记事本，在其中复制下面的XML代码：文件名为CustomUI.xml,编码为UTF-8 保
存到桌面customUI文件夹中
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
<tabs>
<tab id="rxtabCustom"
label="自定义工具"
insertBeforeMso="TabHome">
<group id="mygroupB" label="高三组">
<button id="a1"
imageMso="DatabasePermissions"
size="large"
label="复制工作薄"
/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
第三步：在桌面上新建一个启用宏的Excel文件，并命名为MyCustomUI.xlsm，因为在自定义的XML中，包含了产生回调的onAction属性，所以创建的Excel文件需要启用宏。
第四步：在MyCustomUI.xlsm中，按Alt+F11组合键打开VBE，并插入一个标准模块，添加下面的代码供回调使用
Sub 复制工作薄()
'
' 复制工作薄 宏
'
'
Workbooks.Add
Windows("MyCustomUI.xlsm").Activate
Cells.Select
Selection.Copy
Windows("工作簿1").Activate
ActiveSheet.Paste
End Sub
第五步： 关闭工作簿MyCustomUI.xlsm。
第六步： 在MyCustomUI.xlsm图标上单击右键，选择“重命名”，在文件名后添加“.zip”扩展名，使其变为一个压缩文件
第七步： 双击该压缩文件，打开压缩包，将customUI文件夹拖到该压缩包中
第八步： 将压缩包中的_rels文件夹拖至桌面。
第九步：打开桌面中的_rels文件夹，然后用记事本打开其中的.rels文件
第十步： 在.rels文件的最后一个</Relationships>之前，添加下面的XML：
<Relationship Id="customUIRelID"
Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml"/>
复制代码
第十一步： 保存该.rels文件并关闭。
第十二步： 将修改后的_rels文件夹拖回MyCustomUI压缩包中。如果出现提示，则选择是，覆盖原文件。关闭压缩包。
第十三步： 将MyCustomUI.xlsm.zip的.zip扩展名删除。
第十四步：双击MyCustomUI.xlsm文件，打开工作簿，此时在Excel内置选项卡“开始”的前面添加了一个自定义
新建文件夹.rar
(18.6 KB, 下载次数: 103)
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2018-4-27 23:02
楼主
发表于 2024-10-21 01:37