Дополнение панели инструментов
При необходимости в состав настраиваемых панелей инструментов, которые находятся на вкладке Надстройки, можно добавлять пользовательские элементы управления (в частности, кнопки). Например, можно использовать следующий макрос (листинг 3.40).
Листинг 3.40. Добавление кнопки на панель инструментов
Sub AddCustomButton()
' Добавление кнопки на панель инструментов
With Application.Toolbars(1).ToolbarButtons.Add(button:=222)
.Name = «Кнопка»
.OnAction = «Макрос»
End With
End Sub
Кнопка, добавленная на стандартную панель инструментов в результате применения этого макроса, показана на рис. 3.10.
Рис. 3.10. Добавление пользовательской кнопки