CommandBarControls.Add method (Office)

Creates a new CommandBarControl object and adds it to the collection of controls on the specified command bar.

Note

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, see Overview of the Office Fluent ribbon.

Syntax

expression.Add (Type, Id, Parameter, Before, Temporary)

expression Required. A variable that represents a CommandBarControls object.

Parameters

Name	Required/Optional	Data type	Description
Type	Optional	Variant	The type of control to be added to the specified command bar. Can be one of the following MsoControl constants: msoControlButton, msoControlEdit, msoControlDropdown, msoControlComboBox, or msoControlPopup.
Id	Optional	Variant	An integer that specifies a built-in control. If the value of this argument is 1, or if this argument is omitted, a blank custom control of the specified type will be added to the command bar.
Parameter	Optional	Variant	For built-in controls, this argument is used by the container application to run the command. For custom controls, you can use this argument to send information to Visual Basic procedures, or you can use it to store information about the control (similar to a second Tag property value).
Before	Optional	Variant	A number that indicates the position of the new control on the command bar. The new control will be inserted before the control at this position. If this argument is omitted, the control is added at the end of the specified command bar.
Temporary	Optional	Variant	True to make the new control temporary. Controls are automatically deleted when the container application is closed. The default value is False.

Example

This example creates a custom editing toolbar that contains buttons (controls) for cutting, copying, and pasting.

Dim customBar As CommandBar 
Dim newButton As CommandBarButton 
Set customBar = CommandBars.Add("Custom") 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Cut").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Copy").Id) 
Set newButton = customBar.Controls _ 
    .Add(msoControlButton, CommandBars("Edit") _ 
    .Controls("Paste").Id) 
customBar.Visible = True

See also

• CommandBarControls object members

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.