Семейство CommandBarControls и объект CommandBarControl

↑

▷ Содержание

⇐ ПредыдущаяСтр 26 из 27Следующая ⇒

Семейство CommandBarControls содержит все элементы конкретной панели инструментов или меню. Важнейшим методом этого семейства является метод Add, с помощью которого создается новый элемент панели инструментов или меню.

Синтаксис метода Add:

Add (Type, ID, Parameter, Before, Temporary)

Теперь рассмотрим основные свойства объекта CommandBarControl

Свойство	Описание
С aption	Текст, отображаемый на кнопке или команде меню
Enabled	Логическое свойство, которое определяет, доступен ли для пользователя элемент управления
FaceID	Относится только к CommandBarButton. Возвращает номер встроенной кнопки. Значение 2950 соответствует пользовательской кнопке .
OnAction	Возвращает или устанавливает имя программы (макроса), выполняемой при активизации элемента управления.
Style	Относится только к CommandBarButton. Устанавливает внешний вид кнопки. Допустимые значения: q msoButtonAutomatic кнопка нет ни текста, ни рисунка q msoButtonIcon на кнопке есть рисунок. В этом случае надо задать свойство Icon. q msoButtonCaption на кнопке есть надпись. В этом случае надо задать свойство Caption. q msoButtonIconandCaption на кнопке есть рисунок и надпись. В этом случае надо задать оба свойства:  Icon и Caption.
TooltipText	Текст, отображаемый на всплывающей подсказке.
Visible	Определяет, видима ли кнопка или команда меню.

Основные методы CommandBarButton

С помощью метода PasteFace можно помещать на кнопку простенькие рисунки, сделанные с помощью инструментов Рисование, или надписи, сделанные в WordArt. Для этого:

1) включите макрорекордер,

2) воспользовавшись панелью инструментов Рисование или WordArt, создайте графический объект,

3) вырежьте его в буфер обмена,

4) остановите макрорекордер,

5) в редакторе VBA вырежьте нужный фрагмент кода и вставьте в свою программу.

Пример создания/удаления панели инструментов

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

End Sub

Замечание:

Если Вы выполните это задание с самого начала (т.е. при включенном макрорекордере нарисуете плюс в кружочке), Ваш код будет несколько отличаться от приведенного примера, так как и размер, и месторасположения Вашего рисунка будут иными.

Задание: введите данный код в книгу Плюс в кружочке. xls и запустите его. Убедитесь, что панель инструментов Вставка знака создана.

Познавательные статьи:



Коммуникативные барьеры и пути их преодоления

Рынок недвижимости. Сущность недвижимости

Решение задач с использованием генеалогического метода

История происхождения и развития детской игры