在Excel 2007中制作个性化选项卡

图1展示了一个带有四组控件的自定义Ribbon选项卡(My Stuff)。本节将简要地介绍其RibbonX代码和VBA回调过程。

图1：一个带有四组控件的新的Ribbon选项卡

1、创建一个新选项卡

创建新选项卡的RibbonX代码为：
<ribbon>
  <tabs>
    <tab id=”CustomTab” label=”My Stuff”>
  </tabs>
</ribbon>
技巧：如果想创建一个最小化UI，则Ribbon标记有一个startFromScratch属性。如果设置为True，则将隐藏所有内置选项卡。此外，除了“新建”、“打开”、“Excel选项”和“退出”外，所有Office按钮菜单都会被隐藏。

2、创建一个Ribbon组

本示例中的代码，在My Stuff选项卡中创建了四个组。下面是相应的代码：
<group id=”Group1″ label=”Stuff”>
</group>

<group id=”Group2″ label=”More Stuff”>
</group>

<group id=”Group3″ label=”Built In Stuff”>
</group>

<group id=”Group4″ label=”Galleries”>
</group>
这些成对的<group>和</group>标记位于创建新选项卡的<tab>和</tab>标记里面。

3、创建控件

下面是创建第一组中控件的RibbonX代码，如图7所示。注意，这些控件被定义在第一组 标记里面。

图2：带有四个控件的Ribbon组
<group id=”Group1″ label=”Stuff”>
    <labelControl id=”Label1″ getLabel=”getLabel1″ />
    <labelControl id=”Label2″ getLabel=”getLabel2″ />

    <editBox id=”EditBox1″
        showLabel=”true”
        label=”Number:”
        onChange=”EditBox1_Change”/>

    <button id=”Button1″
        label=”Calculator”
        size=”large”
        onAction=”ShowCalculator”
        imageMso=”Calculator” />
</group>
两个标签控件都有一个相关的VBA回调过程(名为getLabel1和getLabel2)，这些过程如下：
Sub getLabel1(control As IRibbonControl, ByRef returnedVal)
    returnedVal = “Hello ” & Application.UserName
End Sub

Sub getLabel2(control As IRibbonControl, ByRef returnedVal)
    returnedVal = “Today is ” & Date
End Sub
当RibbonX代码被装载时，将执行这两个过程，标签控件的标题将随用户名和日期而动态更新。
编辑框控件有一个名为EditBox1_Change的onChange回调过程，显示输入数字的平方根(或者在不能计算平方根时显示一条错误消息)。EditBox1_Change过程为：
Sub EditBox1_Change(control As IRibbonControl, text As String)
    Dim squareRoot As Double
    On Error Resume Next
    squareRoot = Sqr(text)
    If Err.Number = 0 Then
        MsgBox text & “的平方根是:” & squareRoot
    Else
        MsgBox “输入了一个负数.”, vbCritical
    End If
End Sub
在Stuff组中的最后一个控件是一个简单的按钮，是执行名为ShowCalculator的VBA过程的参数onAction。使用VBA Shell函数来显示Windows计算器：
Sub ShowCalculator(control As IRibbonControl)
    On Error Resume Next
    Shell “calc.exe”, vbNormalFocus
    If Err.Number <> 0 Then MsgBox “不能开启calc.exe”
End Sub

图3展示了第二组中的控件，标记为More Stuff。

图3：在这个自定义的Ribbon组中有三个控件
第二组的RibbonX代码如下：
<group id=”Group2″ label=”More Stuff”>
  <toggleButton id=”ToggleButton1″
      size=”large”
      imageMso=”FileManageMenu”
      label=”Toggle Me”
      onAction=”ToggleButton1_Click” />  <separator id=”sep1″ />   <checkBox id=”Checkbox1″
      label=”Checkbox”
      onAction=”Checkbox1_Change”/>

  <comboBox id=”Combo1″
    label=”Month”
    onChange=”Combo1_Change”>
   <item id=”Month1″ label=”January” />
   <item id=”Month2″ label=”February”/>
   <item id=”Month3″ label=”March”/>
   <item id=”Month4″ label=”April”/>
   <item id=”Month5″ label=”May”/>
   <item id=”Month6″ label=”June”/>
   <item id=”Month7″ label=”July”/>
   <item id=”Month8″ label=”August”/>
   <item id=”Month9″ label=”September”/>
   <item id=”Month10″ label=”October”/>
   <item id=”Month11″ label=”November”/>
   <item id=”Month12″ label=”December”/>
  </comboBox>
</group>
该组包含一个切换按钮、一个分隔条、一个复选框和一个组合框控件。这些控件是相当简单的。除了分隔条控件(插入一条垂直线)外，每个控件都有一个相关的回调过程，简单地显示该控件的状态：
Sub ToggleButton1_Click(control As IRibbonControl, ByRef returnedVal)
    MsgBox “Toggle value: ” & returnedVal
End Sub

Sub Checkbox1_Change(control As IRibbonControl, pressed As Boolean)
    MsgBox “Checkbox value: ” & pressed
End Sub Sub Combo1_Change(control As IRibbonControl, text As String)
    MsgBox text
End Sub

注：复合框控件也接受用户输入的文本。如果您想限制用户只选择所提供的数据，则使用下拉控件。
第三组中的控件由内置的控件组成(如图9所示)。要在自定义组中包括内置控件，只需要知道它的名字(参数idMso)。

图4：包含内置控件的组
其RibbonX代码为：
<group id=”Group3″ label=”Built In Stuff”>
    <control idMso=”Copy” label=”Copy” />
    <control idMso=”Paste” label=”Paste” enabled=”true” />
    <control idMso=”WindowSwitchWindowsMenuExcel”
        label=”Switch Window” />
    <control idMso=”Italic” />
    <control idMso=”Bold” />
    <control idMso=”FileOpen” />
</group>
这些控件没有回调过程，因为它们执行标准的操作。
图5展示了最后一组控件，由两个库组成。

图5：该Ribbon组包含两个库
这两个库控件的RibbonX代码为：
<group id=”Group4″ label=”Galleries”>
  <gallery id=”Gallery1″
      imageMso=”ViewAppointmentInCalendar”
      label=”Pick a Month:”
      columns=”2″ rows=”6″
      onAction=”MonthSelected” >
    <item id=”January” label=”January”
      imageMso=”QuerySelectQueryType”/>
    <item id=”February” label=”February”
      imageMso=”QuerySelectQueryType”/>
    <item id=”March” label=”March”
      imageMso=”QuerySelectQueryType”/>
    <item id=”April” label=”April”
      imageMso=”QuerySelectQueryType”/>
    <item id=”May” label=”May”
      imageMso=”QuerySelectQueryType”/>
    <item id=”June” label=”June”
      imageMso=”QuerySelectQueryType”/>
    <item id=”July” label=”July”
      imageMso=”QuerySelectQueryType”/>
    <item id=”August” label=”August”
      imageMso=”QuerySelectQueryType”/>
    <item id=”September” label=”September”
      imageMso=”QuerySelectQueryType”/>
    <item id=”October” label=”October”
      imageMso=”QuerySelectQueryType”/>
    <item id=”November” label=”November”
      imageMso=”QuerySelectQueryType”/>
    <item id=”December” label=”December”
      imageMso=”QuerySelectQueryType”/>
    <button id=”Today”
        label=”Today…”
        imageMso=”ViewAppointmentInCalendar”
        onAction=”ShowToday”/>
  </gallery>

  <gallery id=”Gallery2″
      label=”Banjo Players”
      size=”large”
      columns=”4″
      itemWidth=”100″ itemHeight=”125″
      imageMso= “Camera”
      onAction=”OnAction”>
     <item id=”bp01″ image=”bp01″ />
     <item id=”bp02″ image=”bp02″ />
     <item id=”bp03″ image=”bp03″ />
     <item id=”bp04″ image=”bp04″ />
     <item id=”bp05″ image=”bp05″ />
     <item id=”bp06″ image=”bp06″ />
     <item id=”bp07″ image=”bp07″ />
     <item id=”bp08″ image=”bp08″ />
     <item id=”bp09″ image=”bp09″ />
     <item id=”bp10″ image=”bp10″ />
     <item id=”bp11″ image=”bp11″ />
     <item id=”bp12″ image=”bp12″ />
     <item id=”bp13″ image=”bp13″ />
     <item id=”bp14″ image=”bp14″ />
     <item id=”bp15″ image=”bp15″ />
  </gallery>
</group>
图6展示了第一个库，是一个在两列中月份名称的列表。参数onAction执行MonthSelected回调过程，显示所选的月份(存储在参数id)：

图6：显示月份名称的库，加上按钮
Sub MonthSelected(control As IRibbonControl, _
   id As String, index As Integer)
    MsgBox “You selected ” & id
End Sub
“Pick a Month”库在底部也包含一个带有自已的回调过程的按钮控件(标记为Today)：
Sub ShowToday(control As IRibbonControl)
    MsgBox “Today is ” & Date
End Sub

第二个库中显示15张照片(您可以将照片添加到相应的文件夹中后，则会显示在库中)。
这些照片存储在工作簿文件中，在customUI文件夹里名为images的文件夹内。添加图像也需要_rels文件夹，使用相关关系列表。要查看这是如何工作的，添加.zip扩展名到工作簿中，并检验其内容。