Это возможно с помощью iAccessible!
Dim As IAccessible
Set oIA = CommandBars("Navigation")
oIA.Visible = True
Затем глубоко рекурсивно найдите ребенка с accName="Navigation"
и accRole=38
тогда его дочерний элемент с индексом 3 имеет accValue=NAVBAR
и accRole=60
Тогда вам нужен ребенок 2 из NAVBAR.
.accDoDefaultAction CHILDID_SELF