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

我都不知怎么设法创建Excel的自定义工具栏，我不能似乎无论是在代码或通过选项摆脱VBA从功能区删除Excel中的自定义工具栏2013

我可以禁用色带但随后可以看到其他色带自定义工具栏

我遍历了外接程序菜单中的菜单选项和如何删除这似乎只是一个在这里的图像组？

来源

2016-03-08 spences10

你不能右键单击单词“文件”下面，并删除工具栏？ – Rory

没有关于该 – spences10

的上下文菜单我的意思是在AddIns选项卡上，下面您可以看到单词FILE，右键单击并查看您获得的选项。 – Rory

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

如果代码已运行，并使用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

来源

2016-03-08 19:38:25

正是我在找什么，谢谢。我没有尝试循环使用CommandBars，但没有使用BuiltIn属性 – spences10

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

回答

相关问题