Как перечислить все имена элементов управления в командной строке в VBA

Question

Есть ли способ перечислить все имена элементов управления, относящиеся к командной строке и соответствующему индексу?

Я играл с этим, но у меня явно неправильный синтаксис.

Sub test3()
i = 0
For Each ctl In CommandBars(1).Controls
    i = i + 1
    Debug.Print ctl.Properties.Name & " " & i
Next ctl

End Sub

Спасибо!

Answer 1

Они расположены на двух уровнях.Попробуйте это:

Sub test3()
    i = 0
    For Each ctl In CommandBars(1).Controls
        For Each ctl2 In ctl.Controls
            i = i + 1
            Debug.Print ctl2.Caption & " " & i
        Next ctl2
    Next ctl

End Sub