[分享]在Excel 2007的功能区中添加中文选项卡和控件

fanjy

经常有朋友问，如何在Excel 2007的功能区中添加中文的选项卡和带中文标签的控件。下面简要地演示步骤，供参考。

在开始之前，先声明Office 2007 CustomUI Editor并不支持中文，因此不能使用这个方便的工具来定制Ribbon，只能使用修改Office 2007文件格式的方法来解决了。
步骤1 在桌面上创建一个名为customUI的文件夹。
步骤2 打开记事本，并在其中输入下面的XML代码：
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="rxtabCustom"
           label="我自已的选项卡"
           insertBeforeMso="TabHome">
          <group idMso="GroupFont"/>
          <group idMso="GroupZoom"/>
          <group id="myGroup" label="我的组">
              <button id="b1"
                      imageMso="HyperlinkInsert"
                      size="large"
                      label="启动网站"
                      onAction="surf"/>
              <button id="b2"
                      imageMso="HappyFace"
                      label="微笑图标"
                      onAction="smile"/>
              <button id="b3"
                      imageMso="FormatPainter"
                      label="格式刷图标"
                      onAction="paint"/>
              <button id="b4"
                      imageMso="AutoFilterClassic"
                      label="筛选图标"
                      onAction="filter"/>
           </group>
     </tab>
   </tabs>
  </ribbon>
</customUI>
该XML文件在Excel的“开始”选项卡前创建了一个名为“我自已的选项卡”的选项卡，并添加了三个组，前两个为Excel内置的组“字体”和“显示比例”，第三个为名为“我的组”的自定义组，其中包括四个自定义的按钮“启动网站”、“微笑图标”、“格式刷图标”和“筛选图标”，并分别定义了onAction属性。
步骤3 将该文件命名为customUI并以.xml为扩展名保存在customUI文件夹中，并关闭该文件。在保存时注意选择“编码”下拉框中的编码为UTF-8，如下图所示。

fanjy

步骤4 在桌面上新建一个启用宏的Excel文件，并命名为MyCustomUI.xlsm。因为在自定义的XML中，包含了产生回调的onAction属性，所以创建的Excel文件需要启用宏。
步骤5 在MyCustomUI.xlsm中，按Alt+F11组合键打开VBE，并插入一个标准模块，添加下面的代码供回调使用：
'Callback for b1 onAction
Sub surf(control As IRibbonControl)
    ActiveWorkbook.FollowHyperlink _
      Address:="http://www.excelperfect.com", _
      NewWindow:=True
End Sub
'Callback for b2 onAction
Sub smile(control As IRibbonControl)
    MsgBox "您单击了微笑图标!呵呵..."
End Sub
'Callback for b3 onAction
Sub paint(control As IRibbonControl)
    MsgBox "您单击了格式刷图标!"
End Sub

'Callback for b4 onAction
Sub filter(control As IRibbonControl)
    MsgBox "您单击了筛选图标!"
End Sub
步骤6 关闭工作簿MyCustomUI.xlsm。
步骤7 在MyCustomUI.xlsm图标上单击右键，选择“重命名”，在文件名后添加“.zip”扩展名，使其变为一个压缩文件。如下图所示。

fanjy

步骤8 双击该压缩文件，打开压缩包，将customUI文件夹拖到该压缩包中，如下图所示。
DnbkVPdm.rar (11.44 KB, 下载次数: 151)

2008-4-30 21:57 上传

点击文件名下载附件
[分享]在Excel 2007的功能区中添加中文选项卡和控件

byhwcm

非常感谢版主的文章，看明白了。也操作成功了。

但我有一个问题：

就是你imageMso="AutoFilterClassic"   这里的AutoFilterClassic和图标对应关系如何获得？

有相关资料吗？

jhj2002

增加选项卡容易,那要在内置的选项卡上添加组和控件,该如何做呢.

海儿无量

粗粗看一下不清楚什么意思。不过看同学的反映似乎写的很清除。给需要的同学看吧，顶上去

三戒

不错的教程

nbwenren

要在内置的选项卡上添加组和控件：
将<tab id="rxtabCustom"
           label="我自已的选项卡"
           insertBeforeMso="TabHome">
改成
<tab idMso="TabHome">
这样就可以在开始选项卡上添加。

lassic

看不懂，给自己加加油先

佛山小老鼠

回复5楼的朋友，增加选项卡容易,那要在内置的选项卡上添加组和控件,该如何做呢.

把附件里的加载宏加载就可以了 就有相对应的图标和其名称

[ 本帖最后由 佛山小老鼠 于 2011-6-19 01:49 编辑 ]