Access/Office菜单工具栏CommandBar添加方法参数说明

tmtony

有几个网友问到，就顺便贴上来。

CommandBars.Add 方法 (Office)Office 2013 and later

创建一个新的命令栏并将其添加到命令栏集合中。

创建一个新的命令栏并将其添加到命令栏集合中。
已通过 Microsoft Office 流畅的用户界面的新功能区组件取代某些 Microsoft Office 应用程序中的命令栏使用。有关更多信息，请搜索帮助关键字"功能区"。

语法
表达式 .Add(Name, Position, MenuBar, Temporary)

参数

名称	必需/可选	数据类型	说明
Name	可选	Variant	新命令栏的名称。如果省略此参数，则为命令栏指定默认名称（如 Custom 1）。
Position	可选	Variant	位置或新的命令栏的类型。可以是MsoBarPosition常量之一。
MenuBar	可选	Variant	真正的活动菜单栏替换为新的命令栏。默认值为False。
Temporary	可选	Variant	True将使新命令栏为临时。命令栏在关闭容器应用程序时删除。默认值为False。

CommandBarControls.Add 方法 (Office)Office 2013 and later

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

已通过 Microsoft Office 流畅的用户界面的新功能区组件取代某些 Microsoft Office 应用程序中的命令栏使用。有关更多信息，请搜索帮助关键字"功能区"。
语法

参数

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

示例  VBA

1. Dim customBar As CommandBar Dim newButton As CommandBarButton
   
2. Set customBar = CommandBars.Add("Custom")
   
3. Set newButton = customBar.Controls _
   
4.     .Add(msoControlButton, CommandBars("Edit") _
   
5.     .Controls("Cut").Id)
   
6. Set newButton = customBar.Controls _
   
7.     .Add(msoControlButton, CommandBars("Edit") _
   
8.     .Controls("Copy").Id)
   
9. Set newButton = customBar.Controls _
   
10.     .Add(msoControlButton, CommandBars("Edit") _
    
11.     .Controls("Paste").Id)
    
12. customBar.Visible = True

复制代码