主题：动态生成菜单

For Each rb As  RibbonMenu.Tab In ribbontabs
             RibbonTabs.remove(rb.name)
 
Next

'这个多点几下,能到到目的

'清除快速访问栏
For Each itm As object In QAT.Items
    QAT.items.Remove(itm.name)
Next

'这个只执行部分清除,还剩下几个清除不掉

For Each cb As object In configbar.Items
    configbar.Items.Remove(cb.name)
Next

参考了一些帖子,有这三个命令进行清除,可是一旦在命令窗口执行的话会无限循环.感觉最好不要用了

RibbonTabs.Clear
QAT.Items.Clear
ConfigBar.Items.Clear