自定义功能区示例：自定义文件菜单、上下文菜单、功能区选项卡

fanjy

发布于 2023-11-23 14:22:00

2470

发布于 2023-11-23 14:22:00

标签：VBA，自定义功能区

在《自定义功能区示例：创建用于工作表导航的下拉列表》、《自定义功能区示例：创建用于工作表导航的动态组合框》中，我们在Excel功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表或组合框的一个自定义组，可用于从下拉列表中选择工作表，从而快速导航到该工作表，这对于工作簿中有大量工作表且要快速找到相应的工作表的用户来说，非常有用。

下面介绍一个综合示例，来源于forum.ozgrid.com，分别在工作簿文件菜单、右键上下文菜单中添加了自定义命令，也自定义了一个选项卡。可以作为自定义功能区的模板参考。

该工作簿名称为Ribbon and Backstage and Context Menus.xlsm，使用Custom UI Editor for Microsoft Office打开该工作簿，在其中输入代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab id="highlightTab"
         label="Unit Assembly Menu" 
         insertBeforeQ="TabFormat">
         <group id="testGroup"
           label="Test">
           <button id="highlightManualTasks"
             label="Toggle Manual Task Color"
             imageMso="DiagramTargetInsertClassic"
             onAction="ToggleManualTasksColor"/>
         </group>
      </tab>
   </tabs>
</ribbon>

<backstage>
 <tab
   id="customTab"
   label="Assembly Units">
   <firstColumn>
   <group
     id="customGroup"
     label="Assembly Units">
     <topItems>
       <button
         id="customButton"
         label="Load &amp;&amp; Return"
         imageMso="BevelShapeGallery"
         onAction="OnAction"
         isDefinitive="true" />
     </topItems>
   </group>
   </firstColumn>
 </tab>

 </backstage>
   <contextMenus>
     <contextMenu idMso="ContextMenuCell">
       <dynamicMenu
         id="MyDynamicMenu"
         label= "My Assembly Unit Menu" 
         imageMso="HappyFace"
         getContent="GetContent"
         insertBeforeMso="Cut"/>
       <menuSeparator id="MySeparator" insertBeforeMso="Cut" />
     </contextMenu>
  </contextMenus>
</customUI>

验证无误后，保存并关闭Custom UI Editor for Microsoft Office。

在Excel中打开Ribbon and Backstage and Context Menus.xlsm，打开VBE，插入一个标准模块，输入下面的代码：

Sub OnAction(control As IRibbonControl)
 MsgBox "Assembly Units"
End Sub
Sub GetContent(control As IRibbonControl, ByRef returnedVal)
 Dim xml As String
 xml = "<menu xmlns=""http://schemas.microsoft.com/office/2009/07/customui"">" & _
       "<button id=""but1"" imageMso=""Help"" label=""Help"" onAction=""HelpMacro""/>" & _
       "<button id=""but2"" imageMso=""FindDialog"" label=""Find"" onAction=""FindMacro""/>" & _
       "</menu>"
 returnedVal = xml
End Sub
Sub HelpMacro(control As IRibbonControl)
 MsgBox "Help macro"
End Sub
Sub FindMacro(control As IRibbonControl)
 MsgBox "Find macro"
End Sub
Sub ToggleManualTasksColor(control As IRibbonControl)
  MsgBox "Assembly Units"
End Sub

保存并关闭该工作簿，然后重新打开该工作簿，即可以看到更新后的自定义功能区界面，如下图所示。