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

Рассмотрим пример создания пользовательской панели инструментов Вставка знака с одной кнопкой, на которой расположен рисунок и надпись «Плюс в кружочке» (рис. 12.24).

Рис. 12.24. Панель инструментов с кнопкой Плюс в кружочке

Листинг программы:

Sub СозданиеПанелиИнструментов()

Dim PlusButton As CommandBarButton

Dim MyBar As CommandBar

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

Set MyBar = Application.CommandBars.Add

With MyBar

. Visible = True'панель инструментов _

видна на экране

. Name = "Вставка знака" 'имя новой _

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

. Position = msoBarTop 'расположена _

в верхнем углу

End With

'2. Создаем рисунок и вырезаем его в буфер обмена '(этот _фрагмент кода был предварительно записан 'макрорекордером):

ActiveSheet.Shapes. _

AddShape(msoShapeFlowchartOr, _

337.5, 77.25, 94.5, 94.5).Select

Selection.ShapeRange.Line.Weight = 6#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.Style = _

msoLineSingle

Selection.Cut '- вырезаем рисунок в буфер ' обмена

'3. Добавляем кнопку на панель инструментов

' «Вставка знака»:

Set PlusButton = MyBar.Controls.Add _

(Type:=msoControlButton)

'На кнопке должен быть рисунок и надпись:

PlusButton. Style = msoButtonIconAndCaption

'Текст надписи:

PlusButton. Caption = "Плюс в кружочке"

'Вставляем рисунок:

PlusButton. PasteFace

'Кнопка доступна пользователю:

PlusButton. Enabled = True

'При щелчке по кнопке выполняется процедура _

Символ:

PlusButton. OnAction = "Символ"