Создание объектов CommandBar.
С помощью семейства CommandBars можно создать объект CommandBar. С любой строкой меню работают, используя объект CommandBar. Чтобы редактировать существующую строку меню или разработать новую, требуется сначала создать этот объект.
Для создания объекта CommandBar используется метод Add семейства CommandBars. Например:
MyCommandBar = CommandBars.Add(Name:="MyBar", _
Position:=msoBartop, MenuBar:=True, Temporary:=false)
Каждый из параметров метода Add является необязательным. Если все аргументы опущены, то можно также не указывать открывающую и заткрывающую скобки. Поскольку параметры являются дополнительными, необходимо указывать их имена.(необязательно).
Параметры метода CommandBars.Add
| Параметр | Описание |
| Name | Задает имя строки меню. Имя используется для указания требуемой строки меню в программе VBA |
| Position | Задает тип добавляемой строки меню. Данный аргумент имеет следующие значения: MsoBarLeft=0 Устанавливает привязку строки меню к левой границе окна основного приложения MsoBarRight=2 Устанавливает привязку строки меню к правой границе окна основного приложения MsoBarTop=1 Устанавливает привязку строки меню к верхней границе окна основного приложения MsoBarBottom=3 Устанавливает привязку строки меню к нижней границе окна основного приложения MsoBarFloating=4 Задает свободное размещение строки меню на экране MsoBarPopup=5 Указывает, что строка меню является контекстным меню. |
| MenuBar | Указывает, заменяет ли новая строка меню активную строку меню основного приложения. Если значение данного параметра равно True, то строка главного меню заменяется пользовательской строкой. В противном случае, новая строка выводится в позиции, которая определяется значением параметра Position. |
| Temporary | Определяет, удаляется ли строка меню после закрытия основного приложения. Если значение параметра равноFalse, то строка меню остается, пока пользовательне выберет команду Вид\Панели инструментов\Настройка\Сброс или не удалит ее с помощью программы VBA. |
Похожие записи
- No related posts found
