2024年5月14日发(作者：)

VBA开发共用对象详解

VBA和其他面向对象的开发语言类似，同样有非常多的对象组成，且不同的Office

成员即提供了大量的开发对象，如工具栏、Office助手、内置对话框和窗体等。

(一)工具栏及其控件对象 在Office中通过VBA开发工具栏和菜单，需使用Offic

e提供的CommandBar、CommandBarButton、CommandBarComboBox等对象，这

些对象即代表工具栏、工具栏按钮和工具栏下拉框，通过这些对象可编制出各类复杂的工

具栏或菜单。

dBars集合

该集合代表Office所有的工具栏，可用名称或索引号指定菜单栏或工具栏，但仅可用

名称指定一个菜单、快捷菜单或子菜单。如两个或两个以上自定义菜单或子菜单名称相同，

则返回第一个具有该名称的对象。

其Add方法用于新建一个工具栏，并返回 CommandBar对象。

语法：(Name, Position, MenuBar, Temporary)

参数说明：

Name为可选的Variant 类型，代表新工具栏的名称。如果省略，则使用默认的名称；

Position为可选的Variant 类型，代表新工具栏的位置。该参数值可通过VBA常量进行

设置，如msoBarLeft、msoBarTop、msoBarRight、msoBarBottom常量(设置新工具

栏位于软件工具栏中位置)；msoBarFloating常量(代表新工具栏可移动)；msoBarPopup

常量(代表新工具栏为快捷菜单)等；MenuBar为可选的Variant 类型，用于设置是否用新

工具栏替换活动工具栏；Temporary为可选的Variant 类型，用于设置新工具栏是否暂时

有效。

dBar对象

该对象代表应用程序中的工具栏，新建工具栏的控件均以该对象为载体。

(1)Controls属性：返回CommandBarControls对象，代表指定工具栏中的所有控件。

(2)NameLocal属性：返回由应用程序版本语言所设置的工具栏名称，如对软件的内

置工具栏设置会出现错误。

(3)Position属性：返回或设置工具栏的位置，值可通过VBA常量进行设置，如mso

BarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloating、msoBarPo

pup或msoBarMenu等。

(4)Type属性：返回或设置工具栏的类型，值可通过VBA常量进行设置，如msoBar

TypeNormal(工具栏为普通类型)、msoBarTypeMenuBar(工具栏为菜单类型)、msoBar

TypePopup(工具栏为弹出菜单类型)等。

(5)Reset方法：将内置工具栏重置为默认设置，在恢复软件原有工具栏或菜单时非常

有用。重置内置工具栏将删除其中的自定义控件并恢复其内置控件。

dBarControls集合