VBA 从功能区中删除自定义工具栏 Excel 2013

Question

我以某种方式设法在 Excel 上创建了一个自定义工具栏，但我似乎无法在代码中或通过选项摆脱它

我可以禁用功能区，但随后可以看到其他功能区自定义工具栏

如何循环浏览“加载项”菜单的菜单选项并删除图像中看起来只是一个组的内容？

Answer 1

如果打开包含 CommandBar 自定义项的工作簿或将其作为加载项加载，则会显示“加载项功能区”选项卡。 CommandBar 是代表旧菜单和工具栏(2007 年之前/Ribbon 之前)的 VBA 对象。

如果运行的代码使用 CommandBar 对象创建旧式菜单和工具栏或向 Office 应用程序内置的现有菜单和工具栏添加控件，也会显示此选项卡。我记得，“自定义工具栏”组包含已定义的所有非内置工具栏(它们不会出现在单独的组中)。

我的文件中有以下宏，用于循环应用程序中的所有 CommandBar 对象。如果它们不是内置的(随产品一起提供)，则有关它们的信息将写入 VBA 编辑器立即窗口 (Ctrl+G) 并被删除。内置命令栏重置为安装默认值 - 对默认值的更改也将显示在“加载项”选项卡中。

Sub DetermineNonBuiltinCommandBars()
    Dim cb As Office.CommandBar

    For Each cb In CommandBars
        If Not cb.BuiltIn Then
            Debug.Print cb.Context & ", " & cb.Name
            cb.Delete
        Else
            cb.Reset
        End If
    Next
End Sub