Метод CommandBarComboBox.Move (Office)

  • Статья

Перемещает указанный элемент управления на существующую панель команд.

Примечание.

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

Синтаксис

expression. Перемещение (линейчатая панель, до)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Bar Необязательный Variant Объект Command , представляющий целевую панель команд для элемента управления . Если этот аргумент опущен, элемент управления перемещается в конец панели команд, где сейчас находится элемент управления.
До Необязательный Variant Число, указывающее положение элемента управления. Элемент управления вставляется перед элементом управления, который в настоящее время занимает эту позицию. Если этот аргумент опущен, элемент управления вставляется на ту же панель команд.

Пример

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

Set allcontrols = CommandBars("Custom").Controls 
For Each ctrl In allControls 
    If ctrl.Type = msoControlComboBox Then 
        With ctrl 
            .Move Before:=7 
             .Tag = "Selection box" 
             .Priority = 5 
         End With 
         Exit For 
    End If 
Next

См. также

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

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