Примеры создания панелей инструментов

В данном разделе мы рассмотрим несколько трюков, с помощью которых можно создавать пользовательские панели инструментов.

Чтобы быстро создать пользовательскую панель инструментов с одной кнопкой, можно воспользоваться следующим макросом (листинг 3.41).

Листинг 3.41. Панель с одной кнопкой

Sub CreateCustomControlBar()

' Создание панели инструментов

With Application.CommandBars.Add(Name:="Панель",

Temporary:=True)

' Создание и настройка кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonIconAndCaption

.FaceId = 66

.Caption = «Просто кнопка»

End With

' Покажем панель

.Visible = True

End With

End Sub

Результат выполнения данного макроса представлен на рис. 3.11.

Рис. 3.11. Пользовательская панель инструментов

Обратите внимание, что в данном случае кнопка отображается со значком и подписью одновременно.

Примечание

Кнопка General на панели инструментов присутствует по умолчанию, независимо от выполненного макроса. В данном случае нас интересует лишь кнопка Просто кнопка, созданная с помощью макроса.

Теперь познакомимся с макросом, использование которого позволяет создать пользовательскую панель инструментов с двумя кнопками. Код данного макроса выглядит следующим образом (листинг 3.42).

Листинг 3.42. Панель с двумя кнопками

Sub CreateCustomControlBar()

' Создание панели инструментов

With Application.CommandBars.Add(Name:="Панель",

Temporary:=True, _

Position:=msoBarLeft)

' Создание и настройка первой кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonWrapCaption

.Caption = «Просто кнопка»

End With

' Создание и настройка второй кнопки

With .Controls.Add(Type:=msoControlButton)

.Style = msoButtonIconAndWrapCaption

.Caption = «Кнопка»

.FaceId = 225

End With

' Покажем панель

.Visible = True

End With

End Sub

После запуска макроса на вкладке Надстройки появится пользовательская панель (рис. 3.12).

Рис. 3.12. Панель в левой части интерфейса

В данном случае кнопка General также присутствует по умолчанию, наш макрос на ее появление не влияет.