Copy Method Example

This example copies the first control from the command bar named "Standard" to the first control on the command bar named "Custom”.

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