Панели инструментов vba

Приложения Microsoft Office позволяют Вам изменять панели инструментов в соответствии Вашим пожеланиям. у каждого приложения свой вариант работы с панелями управления. Но если вспомнить, что приложения MS Office объединяет VBA, всё становиться проще.

"Проверка существования панелиPublic Function CommandBarIsReady(CommandBarName As String) As Boolean CommandBarIsReady = False Dim CBars As Byte CBar = 1 "Перебираем  все панели For Each CBar In CommandBars If CBar.Name = CommandBarName Then CommandBarIsReady = True "найдена нужная панель, выход из цикла Exit For End IfNextEnd Function

Public Sub InitPanel(sPanelName As String)On Error Resume NextIf CommandBarIsReady(sPanelName) = True ThenApplication.CommandBars(sPanelName).Visible = TrueElse"Создаем если нетWith Application.CommandBars.Add(sPanelName, Temporary:=True).Visible = True.Position = msoBarFloatingWith .ControlsWith .Add(msoControlButton).Caption = "Первая кнопка".Style = msoButtonCaption.TooltipText = "Описание первой кнопки".OnAction = "Процедура1"End WithEnd WithEnd WithEnd IfEnd Sub