Método Copy
Copia el control de barra de comandos especificado en una barra de comandos existente.
expresión.Copy(Bar, Before)
expresión Requerida. Expresión que devuelve un objeto CommandBarControl, CommandBarButton, CommandBarPopup o CommandBarComboBox.
Bar Variant opcional. Un objeto CommandBar que representa la barra de comandos de destino. Si se omite este argumento, el control se copia en la misma barra de comandos, es decir, la barra de comandos en la que ya estaba ubicada.
Before Variant opcional. Número que indica la posición del nuevo control en la barra de comandos especificada. El nuevo control se inserta delante del control ubicado en esta posición. Si se omite este argumento, el control se copia al final de la barra de comandos.
Ejemplo
Este ejemplo copia el primer control de la barra de comandos denominada "Standard" en la barra de comandos "Custom" y lo coloca en primer lugar.
Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)
With myControl
.Copy Bar:=myCustomBar, Before:=1
.SetFocus
End With