通过

CommandBarControl.Move 方法 (Office)

将指定的 CommandBarControl 移动到已有的命令栏。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。在) 之前移动 (栏

expression 是必需的。 一个代表 CommandBarControl 对象的变量。

参数

名称 必需/可选 数据类型 说明
Bar 可选 Variant 一个代表控件的目标命令栏的 Command 对象。 如果忽略该参数，则控件将移动到当前所在命令栏的末端。
Before 可选 Variant 表示控件位置的数字。 控件将插到该位置的控件之前。 如果忽略该参数，控件插入到同一命令栏。

示例

本示例将命令栏上名为 Custom 的第一个组合框控件移动到该命令栏上第七个控件之前的位置。 该示例将标记设置为 “选择”框 ，并为控件分配低优先级，以便在所有控件都不适合一行时，它可能会从命令栏中删除。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。