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

我不知何故设法创build一个Excel的自定义工具栏，我似乎不能摆脱代码或通过选项

我可以禁用function区，但可以看到其他function区自定义工具栏

我怎样才能通过加载项菜单的菜单选项，并删除图像中看起来只是一个组？

Answer 1

如果包含CommandBar自定义设置的工作簿已打开或作为加载项加载，则将出现“加载项function区”选项卡。 CommandBar是代表旧菜单和工具栏的VBA对象（2007年之前的function）。

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

下面的macros，我在我的档案中循环应用程序中的所有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