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

工具栏和菜单栏

工具栏和菜单栏的运用更多时候是伴随着加载宏和个性Excel界面的出现而出现。在不断加深对ExcelVBA

的理解和运用，我们编程的思路渐渐会转到考虑代码的通用性和应用方案上，将代码和Excel数据源分开。因此，

制作更多具有通用功能的加载宏（不管是xla加载宏，还是Com加载宏），可以最大极限的发挥VBA编程的魅力，

而不是要求用户强制启用宏。也正是因为这个原因，在我们去学习工具栏和菜单栏时，要明白的一个道理是，制

作工具栏仅仅是为了加载宏等具体运用的实现，不要一味地去追求工具栏的花哨。

一、几个基本概念

在开始本节之前，先理解什么是命令栏？

命令栏（CommandBars）：是工具栏、菜单栏和快捷菜单的统称。

工具栏：带有按钮和选项的工具条，使用这些按钮和选项可执行命令。如下图：

菜单栏：标题栏下的水平栏，包括菜单名称。如下图

快捷菜单：又叫弹出式菜单，鼠标右键单击。如下图。

二、CommandBars集合对象

通过上面几幅图片的直观概念之后，我们接下来理解CommandBar集合。所有的工具栏和菜单栏代码都是围

绕Commandbars集合展开的。

CommandBarControls集合包含三种类型控件。

CommandBarButton：代表命令栏中的一个按钮控件（按钮控件：工具栏上的按钮，或菜单、子菜单或快捷菜单上

的菜单项，当单击它们时会运行一条命令。工具栏按钮和菜单项共享相同的属性和方法。）。该控件的Type属性

必须是msoControlButton。）

CommandBarComboBox：代表命令栏中的一个组合框控件（组合框控件：菜单栏、工具栏、菜单、子菜单或快捷菜

单上的自定义编辑框、下拉列表框或组合框。当工具栏垂直停靠时，它所包含的任何自定义组合框控件都不可

见。）。该控件的Type属性必须是msoControlEdit、msoControlDropdown、msoControlComboBox、

msoControlButtonDropdown、msoControlSplitDropdown、msoControlOCXDropdown、msoControlGraphicCombo

或msoControlGraphicDropdown。）

CommandBarPopup：代表命令栏中的一个弹出式控件（弹出式控件：是菜单栏或工具栏上的内置或自定义控件，

当单击它时显示菜单，或者是菜单、子菜单、或快捷菜单上的内置或自定义菜单项，当指针放在其上时显示子菜

单。）。

该控件的Type属性必须是msoControlPopup、msoControlGraphicPopup、msoControlButtonPopup、

msoControlSplitButtonPopup或msoControlSplitButtonMRUPopup。

几种常见属性，参数和方法：

Visible

Name

Type

Postion

Temporary

Caption

OnAction

FaceID

Style

Enable

Top/Left/Width/Hight

BeginGroup

Controls

Add方法

Findcontrols方法

下面将通过实例来解释上述属性、参数和方法的运用。

三、实例代码

1、 建立一命令栏

即建立了一个工具栏。

一般的，我们会相应的定义一个Commandbar对象来操作这个自定义工具栏，如下代码：

SubAddCommandBar1()'添加一自定义工具栏

DimcmdBarAsCommandBar

SetcmdBar=

EndSub

但，Excel好像任何变化，这是因为自定义工具栏的默认Visible为False。

SubAddCommandBar2()'添加一自定义工具栏,并显示

DimcmdBarAsCommandBar

SetcmdBar=

e=True

EndSub

2、 Position示例

Position:默认值为msoBarFloating

常量说明

msoBarLeft、msoBarTop、msoBarRight和msoBarBottom指定新命令栏的左侧、顶部、右侧和底部坐标

msoBarFloating指定新命令栏不固定

msoBarPopup指定新命令栏为快捷菜单

msoBarMenuBar仅适用于Macintosh机

SubAddCommandBar3()

DimcmdBarAsCommandBar

SetcmdBar=,,Temporary:=True)

WithcmdBar

.Name="MyBar"

.Visible=True

.Position=msoBarTop

EndWith

EndSub

SubAddCommandBar4()

DimcmdBarAsCommandBar

SetcmdBar=Bar",Position:=msoBarTop,Temporary:=True)

e=True

EndSub

为了避免出现重复的自定义工具栏，常规的代码写法是先删除工具栏后，再添加。

SubAddCommandBar5()

DimcmdBarAsCommandBar

CallDeleteCommandBar

SetcmdBar=Bar",Position:=msoBarTop,Temporary:=True)

e=True

EndSub

SubDeleteCommandBar()

OnErrorResumeNext

dBars("MyBar").Delete

EndSub

3、 CommandBarControlsType示例