Привет всем!

Создаю панель инструментов на VBA Excel
как достать id всех иконок или как для иконок достаь id ?
Public Sub create_pan()
With Application.CommandBars.Add(Name:="Панель-Учет затрат", _
Position:=msoBarTop, MenuBar:=False, temporary:=True)
.Visible = True
With .Controls
'сервис
With .Add(Type:=msoControlButton, ID:=2950)
.TooltipText = "Общие &установки "
.OnAction = "M_Function.Go_WindowSetup"
End With

End With
End With
End Sub



Jojo®