[已解决]添加建立工具栏需要哪些参数

向前650809

• 各位网友好，下面是建立工具栏的部分代码
  Dim mmbar As CommandBar
  

   Set mmbar = CommandBars.Add("信息查询", 1, , True)  
。。。。。。
上面代码中，其中括号里是建立工具栏的相应参数（共有四个）。请问，这几个参数都是何意义，每个参数都可取哪些值，省略时又表示何意。
请指导，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-28 08:47

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

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

表达式   必需。一个代表 CommandBars 对象的变量。

参数

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

跳转到最佳答案楼层

hwc2ycy

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

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

表达式   必需。一个代表 CommandBars 对象的变量。

参数

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

hwc2ycy

MsoBarPosition 枚举
指定命令栏的位置或行为。
说明
在某些 Microsoft Office 应用程序中，CommandBar 已被新的功能区用户界面取代。有关详细信息，请在帮助中搜索关键字“功能区”。

名称 值 说明
msoBarBottom 3 命令栏固定在应用程序窗口的底部。
msoBarFloating 4 命令栏浮动在应用程序窗口顶端。
msoBarLeft 0 命令栏固定在应用程序窗口的左侧。
msoBarMenuBar 6 命令栏将为菜单栏（仅限 Macintosh）。
msoBarPopup 5 命令栏将为快捷菜单。
msoBarRight 2 命令栏固定在应用程序窗口的右侧。
msoBarTop 1 命令栏固定在应用程序窗口的顶部。