Основы VBA. Часть 10

Значения типов элемента управления.

Использование объектов CommandBarControl.

Элемент управления CommandBarButton используется для выполнения макроса в ответ на щелчок по этому элементу. При программировании необходимо задать внешний вид кнопки, разрешить доступ к кнопке и задать выполняемые в ответ на щелчок действия. Внешний вид кнопки в строке меню можно задать, указав значение свойства Style. Допустимыми значениями данного свойства являются:

• MsoButtonAutomatic — кнопка не содержит текста и рисунка.
• MsoButtonIcon — не выводится рисунок. В этом случае необходимо также задать значение свойства Icon.
• MsoButtonCaption — на кнопке выводится текст. В этом случае необходимо также задать значение свойства Caption.
• MsoButtonIconandCaption — на кнопке выводится текст и рисунок. В этом случае необходимо также задать значения свойств Icon и Caption.

Для запрета или разрешения доступа к объекту CommandBarButton используется свойство Enabled. Чтобы активизировать кнопку в строке меню, используется следующая инструкция:
MyCommandBarButton.Enabled = True
Пример программирования кнопок:
Public Sub prButton()
Dim ThisButton As CommandBarButton
Dim ThisCommandBar As CommandBar
Set ThisCommandBar = CommandBars.Add
ThisCommandBar.Visible = True
Set ThisButton = ThisCommandBar.Controls.Add(msoControlButton)
ThisButton.Style = msoButtonCaption
ThisButton.Caption = «Лекция 11»
ThisButton.OnAction = «ShowDoc»
End Sub