主题：如何遍历“快速访问栏”做的“标准按钮”？

同问。

简单一点说，就是如何遍历QAT所有项目。

这样方便我们通过控制菜单的ENABLE属性来控制用户权限。

我尝试这样

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("QAT").Items
   output.show(itm.name)
Next

但是报错！

狐爸一定抽出时间帮下忙！这个问题搞了好长时间没有解决。

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("QAT").Items

      If Typeof itm Is RibbonMenu.Button Then
           output.show(itm.name)

      End If
Next

运行之后，这不是我想要的结果。

Save
Undo
Redo
Help

我要的是我自己建立的快捷菜单，而不是系统的。

狐爸够敬业的，回复够快，冲这点，我也要把狐表搞明白。

还是不行。

在程序运行时，用MSGBOX提示，结果什么结果都没有。

可能问的太多，大家都混淆了。

我再简化下提问：

遍历菜单设计-快速访问栏中的项目

测试成功，这个地方必须要三个以上项目才行，切记啊。