如何使用VBA添加自定义function区选项卡？

我正在寻找一种方法来添加一个自定义选项卡的Excelfunction区，将带有几个button。 我偶然发现了一些通过Google解决问题的资源，但都显得有些狡猾，而且非常复杂。

什么是快速简单的方法来做到这一点？ 我希望当我的VBA被加载到Excel中时，新的选项卡被加载。

更新 ：我从这里尝试这个例子，但最后的指令得到一个“对象所需”的错误：

Public Sub AddHighlightRibbon() Dim ribbonXml As String ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" ribbonXml = ribbonXml + " <mso:ribbon>" ribbonXml = ribbonXml + " <mso:qat/>" ribbonXml = ribbonXml + " <mso:tabs>" ribbonXml = ribbonXml + " <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">" ribbonXml = ribbonXml + " <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">" ribbonXml = ribbonXml + " <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" " ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>" ribbonXml = ribbonXml + " </mso:group>" ribbonXml = ribbonXml + " </mso:tab>" ribbonXml = ribbonXml + " </mso:tabs>" ribbonXml = ribbonXml + " </mso:ribbon>" ribbonXml = ribbonXml + "</mso:customUI>" ActiveProject.SetCustomUI (ribbonXml) End Sub 

Answer 1

AFAIK不能使用VBA Excel在Excelfunction区中创build自定义选项卡。 但是，您可以使用VBA隐藏/显示function区组件。 此外，上面提到的链接是用于MS Project而不是MS Excel。

我使用这个免费的实用工具（称为自定义UI编辑器）为我的Excel应用程序/加载项创build选项卡

---

编辑：适应OP的新的请求

教程

这里是一个简短的教程承诺：

1. 在安装了自定义用户界面编辑器（CUIE）之后，打开它，然后单击文件| 打开并select相关的Excel文件。 请确保Excel文件在通过CUIE打开之前已closures。 我正在使用一个全新的工作表作为例子。

   

2. 右键单击，如下图所示，然后单击“Office 2007自定义UI部件”。 它会插入“customUI.xml”

   

3. 下一步点击菜单插入| 示例XML | 自定义标签。 您会注意到基本代码是自动生成的。 现在你已经开始按照你的要求编辑了。

   

4. 让我们来看看代码

   

   label="Custom Tab" ：将“自label="Custom Tab"replace为您要给选项卡的名称。 目前我们称之为“杰罗姆”。

   下面的部分添加一个自定义button。

    <button id="customButton" label="Custom Button" imageMso="HappyFace" size="large" onAction="Callback" /> 

   imageMso ：这是将显示在button上的图像。 “HappyFace”就是你目前所看到的。 你可以在这里下载更多的图片ID 。

   onAction="Callback" ：“callback”是单击button时运行的过程的名称。

演示

这样，我们创build2个button，并将它们称为“JGbutton1”和“JGbutton2”。 让我们保持幸福的脸，作为第一个的形象，让我们保持第二个“太阳”。 修改后的代码如下所示：

 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="MyCustomTab" label="Jerome" insertAfterMso="TabView"> <group id="customGroup1" label="First Tab"> <button id="customButton1" label="JG Button 1" imageMso="HappyFace" size="large" onAction="Callback1" /> <button id="customButton2" label="JG Button 2" imageMso="PictureBrightnessGallery" size="large" onAction="Callback2" /> </group> </tab> </tabs> </ribbon> </customUI> 

删除所有在CUIE中生成的代码，然后粘贴上面的代码来代替。 保存并closuresCUIE。 现在，当您打开Excel文件时，它将如下所示：

现在是代码部分。 打开VBA编辑器，插入一个模块，并粘贴下面的代码：

 Public Sub Callback1(control As IRibbonControl) MsgBox "You pressed Happy Face" End Sub Public Sub Callback2(control As IRibbonControl) MsgBox "You pressed the Sun" End Sub 

将Excel文件保存为启用macros的文件。 现在当你点击笑脸或太阳时，你会看到相关的消息框：

希望这可以帮助！

Answer 2

我可以在Excel 2013中使用VBA来完成此任务。不需要特殊的编辑器。 所有你需要的是可以在Developer选项卡上访问的Visual Basic代码编辑器。 “开发人员”选项卡默认不可见，所以需要在“文件”>“选项”>“自定义function区”中启用。 在开发工具栏上，单击Visual Basicbutton。 代码编辑器将启动。 右键单击左侧的“项目浏览器”窗格。 点击插入菜单并select模块。 将这两个subs添加到新模块。

 Sub LoadCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='Reports' insertBeforeQ='mso:TabFormat'>" & vbNewLine ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine ribbonXML = ribbonXML + " <mso:button id='runReport' label='PTO' " & vbNewLine ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='GenReport'/>" & vbNewLine ribbonXML = ribbonXML + " </mso:group>" & vbNewLine ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + "</mso:customUI>" ribbonXML = Replace(ribbonXML, """", "") Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Sub ClearCustRibbon() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _ "<mso:ribbon></mso:ribbon></mso:customUI>" Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub 

调用Wookbook中的LoadCustRibbon子项打开，并调用ThisWorkbook代码文件的Before_Close事件中的ClearCustRibbon子项。

Answer 3

我疯狂地挣扎着，但这实际上是正确的答案。 为了什么是值得的，我错过的是这样的：

1. 正如其他人所说，不能用VBA创buildCustomUIfunction区， 但是 ，您不需要！
2. 这个想法是你使用Excel的文件>选项>自定义function区创build你的XMLfunction区代码，然后将function区导出到.customUI文件（它只是一个txt文件，其中带有xml）
3. 现在有一招 ：您可以使用他们在此引用的MS工具将.customUI代码包含在.xlsm文件中，方法是从.customUI文件复制代码
4. 一旦将它包含在.xlsm文件中，每次打开它时，您定义的function区都将添加到用户的function区 – 但请使用<ribbon startFromScratch =“false”>或者丢失function区的其余部分。 在退出工作簿时，function区被删除。
5. 从这里开始，很简单，创build你的function区，从.customUI文件中复制特定于你的function区的xml代码，并将其放置在如上所示的包装中（… <tabs> your xml </ tabs .. 。）

顺便说一下在Ron网站上解释它的页面现在是http://www.rondebruin.nl/win/s2/win002.htm

这里是他如何启用/禁用function区上的button的例子http://www.rondebruin.nl/win/s2/win013.htm

有关function区的其他xml示例，请参阅http://msdn.microsoft.com/zh-CN/library/office/aa338202%28v=office.12%29.aspx

Answer 4

这里的答案是特定于使用自定义用户界面编辑器。 我花了一些时间创build界面，没有这个美妙的程序，所以我在这里logging解决scheme，以帮助其他人决定是否需要自定义用户界面编辑器。

我遇到以下Microsoft帮助网页 – https://msdn.microsoft.com/en-us/library/office/ff861787.aspx 。 这显示了如何手动设置接口，但指向我的自定义加载项代码时遇到了一些麻烦。

为了使button与你的自定义macros一起工作，在你的.xlam子目录中设置这个macros，就像在这个答案中所描述的那样调用 – 从function区调用一个excelmacros 。 基本上，您需要将“控制为IRibbonControl”参数添加到您的function区xml指向的任何模块。 此外，您的function区xml应具有onAction =“myaddin！mymodule.mysub”语法，以正确调用通过加载加载的任何模块。

使用这些说明，我可以在（.xlam文件）中创build一个Excel加载项，当我的VBA与加载项一起加载到Excel中时，加载了一个自定义选项卡。button执行添加代码，自定义选项卡卸载时我删除了添加。

Answer 5

除了Roi-Kyi Bryant的回答，这个代码在Excel 2010中完全可用。按ALT + F11，VBA编辑器将popup。 双击左侧的ThisWorkbook ，然后粘贴下面的代码：

 Private Sub Workbook_Activate() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso='http://schemas.microsoft.com/office/2009/07/customui'>" & vbNewLine ribbonXML = ribbonXML + " <mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + " <mso:qat/>" & vbNewLine ribbonXML = ribbonXML + " <mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " <mso:tab id='reportTab' label='My Actions' insertBeforeQ='mso:TabFormat'>" & vbNewLine ribbonXML = ribbonXML + " <mso:group id='reportGroup' label='Reports' autoScale='true'>" & vbNewLine ribbonXML = ribbonXML + " <mso:button id='runReport' label='Trim' " & vbNewLine ribbonXML = ribbonXML + "imageMso='AppointmentColor3' onAction='TrimSelection'/>" & vbNewLine ribbonXML = ribbonXML + " </mso:group>" & vbNewLine ribbonXML = ribbonXML + " </mso:tab>" & vbNewLine ribbonXML = ribbonXML + " </mso:tabs>" & vbNewLine ribbonXML = ribbonXML + " </mso:ribbon>" & vbNewLine ribbonXML = ribbonXML + "</mso:customUI>" ribbonXML = Replace(ribbonXML, """", "") Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub Private Sub Workbook_Deactivate() Dim hFile As Long Dim path As String, fileName As String, ribbonXML As String, user As String hFile = FreeFile user = Environ("Username") path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\" fileName = "Excel.officeUI" ribbonXML = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" & _ "<mso:ribbon></mso:ribbon></mso:customUI>" Open path & fileName For Output Access Write As hFile Print #hFile, ribbonXML Close hFile End Sub 

不要忘记保存并重新打开工作簿。 希望这可以帮助！