Следующий код взят из этой ссылки.
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?


Это позволит просмотреть все панели команд и их элементы управления. Названия/описания элементов управления не очень хороши...
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