VBA - 功能区自定义 - 添加附加组件时

问题描述

我做了一个我希望分发给我的同事的程序，他们不是面向 VBA 的。所以我想轻松分发。

我创建了一个插件，安装插件时需要创建一个自定义功能区。我已经尽力了，但找不到易于理解的文档。

我的代码如下：

Private Sub Workbook_AddinInstall()

On Error Resume Next 'Just in case

    Application.CommandBars("Worksheet Menu Bar").Controls("Super Code").Delete

    Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add
        With cControl
            .Caption = "Open SCF workbook"
            .Style = msoButtonIconAndCaptionBelow
            .OnAction = "OpenTheCorrectFile"
            .FaceId = 7720
            .DescriptionText = "Open the SCF workbook"
        End With
               
    Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add
        With cControl
            .Caption = "Are they onboard"
            .Style = msoButtonIconAndCaptionBelow
            .FaceId = 5817
            .OnAction = "Check_Suppliers_Already_On_Board"
            .DescriptionText = "Check if suppliers have already been on boarded"
        End With
End Sub

现在如果你使用我的代码你会注意到：

按钮很小
图标很小
对它们进行吸食时没有描述
新功能区没有特殊名称，它是调用插件
该组没有特殊名称，称为“菜单命令”

有谁知道如何解决这个问题。每当我寻找这些答案时，人们都在使用特殊应用程序来创建色带，我不想这样做。我也是 VBA 的初学者，所以欢迎所有易于理解的内容。

非常感谢。

解决方法

这里有一个示例，说明如何在不使用任何外部应用程序，仅使用文本编辑器的情况下执行此操作。但是您必须小心正确编写 XML 代码，否则 excel 文件可能无法正确打开（制作备份副本）。

您将创建一个名为“customUI”的文件夹，并在该文件夹中创建一个名为“customUI.xml”的文件

您将在“customUI.xml”中写入所有功能区详细信息。我写了这个例子，涵盖了你列出的问题：大按钮和图标（https://bert-toolkit.com/imagemso-list.html 中的图像列表）/工具提示描述（屏幕提示和超级提示）/功能区名称（标签标签）/组名称（组标签）

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">  
<ribbon>
  <tabs> 
    <tab id="CustomTab" label="Add-ins"> 
      <group id="Group1" label="Menu Commands"> 
        <button id="Button1" label="Happy" size="large" screentip="Test1" supertip="Test1 description" imageMso="HappyFace" onAction="Macro1" /> 
        <button id="Button2" label="Save" size="large"  imageMso="FileSave" onAction="Macro2" /> 
        <button id="Button3" label="{a}" size="large" imageMso="FieldCodes" onAction="Macro3" /> 
      </group > 
      <group id="Group2" label="Other Commands"> 
        <button id="Button4" label="Reply" size="large" imageMso="Reply" onAction="Macro4" /> 
      </group > 
     </tab> 
  </tabs> 
</ribbon> 
</customUI>

将您的 .XLSM 文件重命名为 .ZIP，然后您将能够编辑/添加文件。将 customUI 文件夹添加到 zip 文件中。
从 ZIP 文件中，提取 _rels 文件夹中的 .rels 文件，您将在最后一个关系标签和关系结束标签之间添加这一行，然后将其放回 ZIP 文件中，覆盖 .rels 文件。 rels 文件在那里
```
 <Relationship Id="someID" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="customUI/customUI.xml" /> 
```
将文件重命名回 .XLSM 并打开它，如果一切正常，新的 Ribbon 将在那里。按钮将调用的宏具有控制参数很重要，如下所示：
```
 Sub Macro3(ByVal control As IRibbonControl)
```

就是这样，关于 UI 的所有内容都在 customUI.xml 文件中，VBA 中不再需要添加按钮。如果您必须更改 UI 中的某些内容，则必须再次将其重命名为 ZIP，覆盖 customUI.xml 文件并再次重命名为 XLSM。这是我在此示例中获得的功能区：

excel-addins

VBA - 功能区自定义 - 添加附加组件时

问题描述

解决方法

相关问答