主题：[求助] 遍历状态按钮后，Pressed 属性不好用？

Dim itm As RibbonMenu.RibbonItem

改成

Dim itm As Object

参考代码

Dim itm As object
For Each itm In RibbonTabs("功能区A").Groups("功能组B1").Items
    If Typeof itm Is RibbonMenu.ToggleButton Then
        msgbox(123)
    End If
Next

比如

For Each r As RibbonMenu.Tab In RibbonTabs
    output.show(r.text)
    For Each g As RibbonMenu.Group In r.Groups
        output.show(g.text)
        For Each c As object In g.Items
            output.show(c.name)
        Next
    Next
Next

参考

For Each g As RibbonMenu.Group In RibbonTabs("功能区A").Groups
    output.show(g.text)
    For Each c As object In g.Items
        output.show(c.name)
    Next
Next

For Each itm As object In QAT.items
    output.show(itm.name)
Next

你拼错单词了。