用xml添加自定义图片到Excel功能区(纯记事本编辑)

xtanuihazfh · 发表于 2011-8-21 18:32

本帖最后由 xtanuihazfh 于 2011-8-22 13:01 编辑

纯记事本编辑添加自定义图片到功能区

首先创建一个xlsm后缀格式的Excel文件(Excel启用宏的工作簿)

不要打开此文件,右键单击此文件,选择以winRAR压缩文件管理器来打开该文件,如果没装这个软件的也可以用其它压缩管理软件解压后进入压缩包

在空白区域单击右键创建一个新文件夹,并将其命名为customUI

打开_rels文件夹中的.rels文件,在其中</Relationships>标记之前添加以下代码

<Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" />

复制代码

这行代码用于将工作簿文件与我们将要自定义功能区的xml文件管理关系,使打开工作簿时能够识别我们要定义的xml文件

保存关闭,更新文件

然后回到我们的customUI文件夹打开记事本,输入以下代码

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

  <ribbon>

<tabs>

   <tab id="CustomTab" label="我的自定义选项卡" insertAfterMso="TabHome">

      <group id="Group1" label="自定义组1">

      <button id="Button1" label="联系作者" size="large" onAction="联系作者" image="A"/>

      </group >

   </tab>

</tabs>

  </ribbon>

</customUI>
复制代码

然后保存此文件文件为customUI.xml,保存时一定要注意编码方式要选择UTF-8,否则将不能使中文识文字显示在选项卡中

保存后将customUI.xml拖到我们压缩文件管理器中的customUI文件夹中

中间可能大家已经注意到xml代码中的image="A" 这一部分是用于设置按钮图标的,但是其中的A是从哪来的呢,不要急,接着往下看

回到压缩文件管理器中的customUI文件夹再创建一个文件夹命名为images,打开此文件夹,将我们的自定义图标文件拖进去

OK,现在的图标文件已经准备完毕,现在只要我们为它定义一个名称即可在customUI.xml文件中调用它了

再次打开记事本,输入以下代码

<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
<Relationship Id="A" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/001.png" />
</Relationships>

复制代码

保存为customUI.xml.rels,要注意编码方式哦….

再次回到回到压缩文件管理器中的customUI文件夹创建一个文件夹,将其命名_rels,

然后打开将我们刚才定义的customUI.xml.rels拖进去,此时我们的customUI文件夹如下

此时可以打开工作簿文件看一下效果了

打开工作簿时会有这个提示,我们点是

然后会有这个提示,先不理它,此时我们只关心我们之前所做的工作有没有得到回报

焦点转向选项卡

确实达到预期的效果,此时可以保存工作簿了,如果没有见到这个按钮的话请关闭不保存工作簿然后检查之前的步骤是否正确

做好按钮以后我们不能只放那光看不用,是吧?下面该写按钮回调了

打开我们刚才的Excel文件,按下ALT+F11打开VBE编辑器,在工程资源管理器中插入一个模块复制以下代码进去

Sub 联系作者(ByVal control As IRibbonControl)
Dim QQNO As String, IE As Object
QQNO = 447502105
Set IE = CreateObject("internetexplorer.application")
IE.navigate "tencent://message/?uin=" & QQNO, vbHide
IE.Quit
Set IE = Nothing
End Sub

复制代码

以上过程可以打开目标QQ的会话

呵呵,是否学会了呢?大家可以试着在边上再加个按钮,效果如下图

以下是按钮的回调

Sub EH论坛(ByVal control As IRibbonControl)
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.navigate "club.excelhome.net"
IE.Visible = True
End Sub

复制代码

记事本编辑xml代码添加自定义图片到功能区.rar (454.41 KB, 下载次数: 2089)

再补一个相关的视频文件的下载地址 http://u.115.com/file/aqbgdkie#

weimei(^_^) · 发表于 2011-8-21 18:40

{:soso__15002582214965628431_2:} 哈哈。。。。沙发。。。。。

菲鱼 · 发表于 2011-8-21 18:54

楼主辛苦了,学习一下

tycxp · 发表于 2011-8-21 19:21

看不懂，先回个贴

335081548 · 发表于 2011-8-21 19:23

谢谢分享，楼主辛苦了

zgb4461 · 发表于 2011-8-21 19:26

不错，学习

espritwinnie · 发表于 2011-8-21 19:27

本帖最后由 ExcelHome 于 2012-10-6 16:43 编辑

很强大的！学习了！

zjdh · 发表于 2011-8-22 10:07

学习一下 .

wxj1126 · 发表于 2011-8-22 10:32

楼主，好强啊

lu2ul · 发表于 2011-8-22 11:53

谢谢分享，楼主辛苦了

		自动登录	找回密码
密码			免费注册

[原创] 用xml添加自定义图片到Excel功能区(纯记事本编辑)

评分