全部显示

Copy 方法

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

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

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

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

示例

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

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