Элемент управления CommandBarButton используется для выполнения макроса в ответ на щелчок по этому элементу. При программировании необходимо:

• Задать внешний вид кнопки
• Разрешить доступ к кнопке
• Задать выполняемые в ответ на щелчок действия

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

• Константа msoButtonAutomatic. Кнопка не содержит текста и рисунка.
• Константа msoButtonlcon. На кнопке выводится рисунок. В этом случае необходимо также задать значение свойства Icon.
• Константа msoButtonCaption. На кнопке выводится текст. В этом случае необходимо также задать значение свойства Caption.
• Константа msoButtonIconandCaption. На кнопке выводится текст и рисунок. В этом случае необходимо также задать значения свойств Icon и Caption.

Разрешение доступа к объекту CommandBarButton. В некоторых случаях требуется отключить кнопку, например, если выполнение связанной с ней процедуры повредит данные. Для запрета или разрешения доступа к объекту CornmandBarButton используется свойство Enabled объекта CommandBarButton. Чтобы активизировать кнопку в строке меню, используется следующая инструкция:

MyCommandBarButton.Enabled = True

Задание выполняемых действий. С нажатием кнопки можно связать выполнение определенных действий. Для этого необходимо создать макрос и присвоить его имя свойству OnAction элемента управления CommandBarButton. В программе 7 макрос PrintIt выполняется, когда пользователь щелкает по кнопке с текстом "MyAction". Необходимо отметить, что для нормальной работы процедуры ButtonClickDemo необходимо наличие макроса PrintIt.

Программа 7. Программирование кнопки

Sub ButtonClickDemo()
     Dim ThisButton as CommandBarButton
     Dim ThisCommandBar as CommandBar
     Set ThisCommandBar = CommandBars.Add
     Set ThisButton = ThisCommandBar.Controls.Add _
           (Type:= msoControlButton)
     ThisButton.Style = msoButtonCaption
     ThisButton.Caption = "MyAction"
     ThisButton.Enabled = True
     ThisButton.OnAction = "PrintIt"
End Sub

! Примечание

В предыдущем разделе описывались специальные элементы управления строк меню. Эти элементы имеют встроенные функциональные возможности. Чтобы выполнить стандартные для этих объектов действия, необходимо использовать метод Execute, например, MyControl.Execute, где переменная MyControl является объектом CommandBarControl.

Для комментария : kadan@grsu.grodno.by