CommandBarPopup.Move Method (Office)
Moves the specified CommandBarPopup control to an existing command bar.
The use of CommandBars in some Microsoft Office applications has been superseded by the new ribbon component of the Microsoft Office Fluent user interface. For more information, search Help for the keyword "ribbon."
expression Required. A variable that represents a 'CommandBarPopup' object.
|Bar||Optional||Variant||A Command object that represents the destination command bar for the control. If this argument is omitted, the control is moved to the end of the command bar where the control currently resides.|
|Before||Optional||Variant||A number that indicates the position for the control. The control is inserted before the control currently occupying this position. If this argument is omitted, the control is inserted on the same command bar.|
This example moves the first combo box control on the command bar named Custom to the position before the seventh control on that command bar. The example sets the tag to "Selection box" and assigns the control a low priority so that it will likely be dropped from the command bar if all the controls don't fit in one row.
Set allcontrols = CommandBars("Custom").Controls For Each ctrl In allControls If ctrl.Type = msoControlComboBox Then With ctrl .Move Before:=7 .Tag = "Selection box" .Priority = 5 End With Exit For End If Next