Método Copy

Microsoft Office Objects

Mostrar todo

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