Как получить список номеров идентификаторов управления VBE CommandBars

Следующий код взят из этой ссылки.

https://forum.ozgrid.com/forum/index.php?thread/32040-minimize-vba-window-with-code/

Sub Macro1()

    Dim cbcTemp As CommandBarControl

    On Error Resume Next

    Set cbcTemp = Application.VBE.CommandBars.FindControl(ID:=752)
    If Not cbcTemp Is Nothing Then
        cbcTemp.Execute
    End If

    On Error GoTo 0

End Sub

В приведенном выше примере контрольный идентификатор равен 752.

Мне нужно понять, что делает каждый идентификационный номер.

Кто-нибудь знает, как получить список номеров идентификаторов управления VBE CommandBars?

Преобразование HTML-таблицы в профессиональный документ Excel
Преобразование HTML-таблицы в профессиональный документ Excel
Это самый простой способ создания Excel из HTML-таблицы.
Импорт excel в laravel в базу данных
Импорт excel в laravel в базу данных
Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...
0
0
169
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это позволит просмотреть все панели команд и их элементы управления. Названия/описания элементов управления не очень хороши...

    Dim cbtemp As CommandBar
    Dim cbctemp As CommandBarControl
    
    For Each cbtemp In Application.VBE.CommandBars
        Debug.Print "command bar:", cbtemp.ID, cbtemp.Name
        For Each cbctemp In cbtemp.Controls
            Debug.Print cbctemp.ID, cbctemp.Caption, cbctemp.TooltipText
        Next
    Next

Возможно, вам придется вывести это на лист, поскольку мой размер превышает непосредственное отображение в Windows.

    Dim cbtemp As CommandBar
    Dim cbctemp As CommandBarControl
    
    Dim i As Long
    i = 1
    For Each cbtemp In Application.VBE.CommandBars
        Cells(i, 1).Value = cbtemp.ID
        Cells(i, 2).Value = cbtemp.Name
        For Each cbctemp In cbtemp.Controls
            i = i + 1
            Cells(i, 3).Value = cbctemp.ID
            Cells(i, 4).Value = cbctemp.Caption
            Cells(i, 5).Value = cbctemp.TooltipText
        Next
        i = i + 1
    Next

Другие вопросы по теме