Лекция: Создание панели инструментов

Рассмотрим пример создания пользовательской панели инструментов Вставка знака с одной кнопкой, на которой расположен рисунок и надпись «Плюс в кружочке» (рис. 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 'расположена _

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

EndWith

'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 = «Символ»