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