Excel 插件 - 不修改工具栏

Question

我正在寻找向用户部署 Excel 宏的最佳方式。我的目标是通过添加到插件工具栏让最终用户安装和推广使用变得超级容易。我知道有很多关于这个主题的帮助文章，但找不到任何涵盖这个确切问题的东西。如果这是一个菜鸟问题，请您帮忙并原谅我。有关我的问题的复制步骤，请参见下文。

1. 我已将以下代码添加为 Excel 宏文件的“此工作表”上的工作表事件
2. 我将主代码添加到它引用的模块中
3. 我将此作为 .XLAM 保存在插件漫游文件夹中
4. 我在 EXCEL 2013 中将其作为插件启用
5. 安装后，它会将按钮添加到添加选项卡中
6. 在我关闭 Excel 之前它可以工作，在这种情况下按钮会消失
7. 它仍处于活动加载项下，但不在工具栏上

代码：

Option Explicit

Dim cControl As CommandBarButton

Private Sub Workbook_AddinInstall()

On Error Resume Next 'Just in case

'Delete any existing menu item that may have been left.
Application.CommandBars("Worksheet Menu Bar").Controls("Super Code").Delete

'Add the new menu item and Set a CommandBarButton Variable to it
Set cControl = Application.CommandBars("Worksheet Menu Bar").Controls.Add

'Work with the Variable
    With cControl
        .Caption = "Convert Survey Reporter Tables"
        .Style = msoButtonCaption
        .OnAction = "CMB_General_Table_Formatting"
        'Macro stored in a Standard Module
    End With

On Error GoTo 0
End Sub

Private Sub Workbook_AddinUninstall()
    On Error Resume Next 'In case it has already gone.

   Application.CommandBars("Worksheet Menu Bar").Controls("Convert Survey Reporter Tables").Delete
  On Error GoTo 0

End Sub

Answer 1

如果您想要替代使用 VBA 来构建界面，我之前已经使用各种功能区 XML 部署了 Excel 插件（XLAM 文件）。这允许对生成的界面进行非常细粒度的控制，并且不需要您在 VBA 中工作来构建界面。对于大多数应用程序，我发现在 VBA 之外构建功能区组件然后在 VBA 中连接回调要容易得多。

对于最终用户，我认为这种方法还提供了一个更好看的插件，因为生成的界面有自己的功能区选项卡（或者您可以添加到任何现有的选项卡）而不是在插件功能区中标签。

如果你想走这条路线，我强烈建议使用Ribbon X Visual Designer 来构建接口并设置回调。我已经使用它构建了一个插件，该插件具有 50 多个可通过按钮和其他功能区表单控件访问的功能。一旦我开始，它是相当无痛的。