Метод CommandBarControls.Add (Office)

  • Статья

Создает новый объект CommandBarControl и добавляет его в коллекцию элементов управления на указанной панели команд.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. Add (Type, Id, Parameter, Before, Temporary)

выражение (обязательно). Переменная, представляющая объект CommandBarControls .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Type Необязательный Variant Тип элемента управления, добавляемого на указанную панель команд. Может быть одной из следующих констант MsoControl : msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox или msoControlPopup.
Id Необязательный Variant Целое число, указывающее встроенный элемент управления. Если значение этого аргумента равно 1 или этот аргумент опущен, на панель команд будет добавлен пустой пользовательский элемент управления указанного типа.
Параметр Необязательный Variant Для встроенных элементов управления этот аргумент используется приложением-контейнером для выполнения команды . Для пользовательских элементов управления этот аргумент можно использовать для отправки сведений в процедуры Visual Basic или для хранения сведений об элементе управления (аналогично значению второго свойства Tag ).
До Необязательный Variant Число, указывающее положение нового элемента управления на панели команд. Новый элемент управления будет вставлен перед элементом управления в этой позиции. Если этот аргумент опущен, элемент управления добавляется в конце указанной панели команд.
Temporary Необязательный Variant Значение True , чтобы сделать новый элемент управления временным. Элементы управления автоматически удаляются при закрытии приложения контейнера. Значение по умолчанию — False.

Пример

В этом примере создается настраиваемая панель инструментов редактирования, содержащая кнопки (элементы управления) для вырезания, копирования и вставки.

Dim customBar As CommandBar 
Dim newButton As CommandBarButton 
Set customBar = CommandBars.Add("Custom") 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Cut").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Copy").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Paste").Id) 
customBar.Visible = True

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.