Коллекция CommandBarControls

Метод ShowPopup

Метод ShowPopup выводит на экран панель команд как контекстное меню в заданных координатах или в текущей позиции указателя. Если свойство Position команд имеет значение, отличное от значения константы msoBarPopup, то этот метод не выполняется. Синтаксис метода ShowPopup:

Expression.ShowPopup(X, Y)

Expression – обязательный элемент, представляющий собой выражение, возвращающее объект CommandBar;

X – необязательный элемент типа Variant, задающий координату расположения контекстного меню по горизонтали. В случае отсутствия этого параметра используется текущая координата указателя;

Y – необязательный элемент типа Variant, задающий координату расположения контекстного меню по вертикали. Если этот параметр отсутствует, то используется текущая координата указателя.

Коллекция CommandBarControLs предоставляет доступ ко всем элементам управления панелей команд. Чтобы получить доступ к коллекции CommandBarControLs конкретного объекта CommandBar, необходимо использовать свойство Controls этого объекта.

Для добавления на панель команд нового элемента управления используют метод Add этой коллекции.

В листинге 28 приведен пример создания панели инструментов с последующим добавлением на нее кнопки.

Листинг 28. Создание панели инструментов с добавлением на нее кнопки

Sub Examp() Dim MyBar As CommandBar Dim MyButton As CommandBarButton Set MyBar = CommandBars.Add() Set MyButton = MyBar.Controls.Add(msoControlButton) MyBar.Visible = True End Sub

В приведенном примере объявляются две переменные: MyBar типа CommandBar и MyButton типа CommandBarButton. Затем им присваиваются ссылки на созданную панель инструментов и кнопку панели инструментов соответственно. Последняя инструкция в этой процедуре делает созданную панель инструментов видимой.

Чтобы сослаться на конкретный элемент управления панели команд, являющийся членом коллекции CommandBarControls, можно использовать следующую инструкцию:

Set myControl = CommandBars(1).Controls(1)

Здесь для ссылки на конкретный элемент управления используется свойство Controls объекта CommandBar.

Дата добавления: 2013-12-13