Move 方法

全部显示

本主题中的某些内容可能不适用于某些语言。

Move 方法应用于 CommandBarButton、CommandBarComboBox、CommandBarControl 和 CommandBarPopup 对象的情形。

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

expression.Move(Bar, Before)

expression 必需。该表达式返回上面对象之一。

BarVariant 类型，可选。表示控件的目标命令栏的CommandBar 对象。如果忽略该参数，则控件将移动到当前所在命令栏的末端。

BeforeVariant 类型，可选。表示控件位置的数字。控件将插到该位置的控件之前。如果忽略该参数，控件插入到同一命令栏。

Move 方法应用于 Assistant 对象的情形。

将“Office 助手”移动到指定位置。

expression.Move(xLeft, yTop)

expression 必需。该表达式返回一个Assistant 对象。

xLeftInteger 类型，必需。以点数表示的“Office 助手”窗口左端位置。

yTopInteger 类型，必需。以点数表示的“Office 助手”窗口顶端位置。

示例

应用于 CommandBarButton、CommandBarComboBox、CommandBarControl 和 CommandBarPopup 对象的情形。

本示例将名为 Custom 的命令栏上的第一个组合框控件移动到该命令栏上的第七个控件之前。本示例设置标记为 "Selection box" 并赋予控件较低的优先级，以便在一行容纳不下所有控件时将其隐藏。

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

应用于 Assistant 对象的情形。

本示例在指定位置显示“Office 助手”，并在使其可见之前设置多个选项。

With Assistant
 .Reduced = True
 .Move xLeft:= 400, yTop:= 300
 .MoveWhenInTheWay = True
 .TipOfDay = True
 .Visible = True
 .Animation = msoAnimationGreeting
End With