CommandBarControls.Add 方法 (Office)

新建一个 CommandBarControl 对象并将其添加到指定命令栏上的控件集合中。

注意

某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息，请参阅 Office Fluent 功能区概述。

语法

表达式。添加 (类型、 ID、 参数、 Before、 临时)

expression 是必需的。 一个代表 CommandBarControls 对象的变量。

参数

名称	必需/可选	数据类型	说明
Type	可选	Variant	要添加到指定命令栏中的控件类型。 可以为以下 MsoControl 常量之一：msoControlButton、msoControlEdit、msoControlDropdown、msoControlComboBox 或 msoControlPopup。
Id	可选	Variant	指定内置控件的整数。 如果该参数为 1，或者忽略该参数，将在命令栏中添加一个空的指定类型的自定义控件。
参数	可选	Variant	对于内置控件，容器应用程序使用该参数运行命令。 对于自定义控件，可以使用该参数向 Visual Basic 过程传递信息，也可以用它存储有关控件的信息（类似于第二个 Tag 属性值）。
Before	可选	Variant	一个指示新控件在命令栏上位置的数值。 新控件将插入到位于此位置的控件之前。 如果忽略该参数，控件将添加到指定命令栏的末端。
Temporary	可选	Variant	设置为 True 将使新控件成为临时控件。 容器应用程序关闭时，会自动删除控件。 默认值为 False。

示例

本示例创建包含剪切、复制和粘贴按钮（控件）的自定义编辑工具栏。

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

另请参阅

• CommandBarControls 对象成员

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。