Office VBA教程:Move方法

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

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

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

expression.Move(Bar, Before)

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

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

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

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

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

expression.Move(xLeft, yTop)

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

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

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

VBA示例

应用于 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

上页:Office VBA教程:LoadFromFile方法 下页:Office VBA教程:NewSearch方法

Office VBA教程:Move方法

Office VBA教程:NewSearch方法 Office VBA教程:Open方法
Office VBA教程:PasteFace方法 Office VBA教程:RefreshDocument方法
Office VBA教程:RefreshProject方法 Office VBA教程:RefreshScopes方法
Office VBA教程:ReleaseFocus方法 Office VBA教程:Remove方法
Office VBA教程:RemoveItem方法 Office VBA教程:Reset方法
Office VBA教程:ResetFileList方法 Office VBA教程:ResetTips方法
Office VBA教程:SaveCopyAs方法 Office VBA教程:SetAvoidRectangle方法
Office VBA教程:SetFocus方法 Office VBA教程:SetSortOrder方法
Office VBA教程:Show方法 Office VBA教程:ShowPopup方法
Office VBA教程:StartWizard方法 Office VBA教程:Update方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号