Excel工具栏和菜单栏VBA源码实例.docVIP

工具栏和菜单栏 工具栏和菜单栏的运用更多时候是伴随着加载宏和个性Excel界面的出现而出现。在不断加深对Excel VBA的理解和运用，我们编程的思路渐渐会转到考虑代码的通用性和应用方案上，将代码和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方法 下面将通过实例来解释上述属性、参数和方法的运用。 三、实例代码 建立一命令栏 Application.CommandBars.Add 即建立了一个工具栏。 一般的，我们会相应的定义一个Commandbar对象来操作这个自定义工具栏，如下代码： Sub AddCommandBar1() 添加一自定义工具栏 Dim cmdBar As CommandBar Set cmdBar = Application.CommandBars.Add End Sub 但，Excel好像任何变化，这是因为自定义工具栏的默认Visible为False。 Sub AddCommandBar2() 添加一自定义工具栏,并显示 Dim cmdBar As CommandBar Set cmdBar = Application.CommandBars.Add cmdBar.Visible = True End Sub Position示例 Position: 默认值为 msoBarFloating 常量 说明 msoBarLeft、msoBarTop、msoBarRight 和 msoBarBottom 指定新命令栏的左侧、顶部、右侧和底部坐标 msoBarFloating 指定新命令栏不固定 msoBarPopup 指定新命令栏为快捷菜单 msoBarMenuBar 仅适用于 Macintosh 机 Sub AddCommandBar3() Dim c