Copy 方法

全部显示

将一个命令栏控件复制到已有的命令栏中。

expression.Copy(Bar,Before)

expression 必需。该表达式返回一个CommandBarControl、CommandBarButton、CommandBarPopup 或CommandBarComboBox 对象。

BarVariant 类型，可选。代表目标命令栏的CommandBar 对象。如果省略该参数，控件将被复制到同一个命令栏中（即该控件原来所在的命令栏）。

BeforeVariant 类型，可选。一个表示新控件在命令栏上位置的数值。新控件将插入在位于该位置的控件之前。如果省略此参数，那么控件将被复制到命令栏的末尾。

示例

此示例将命令栏“Standard”上的第一个控件复制到命令栏“Custom”上第一个控件的位置。

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
With myControl
 .Copy Bar:=myCustomBar, Before:=1
 .SetFocus
End With