Excel2003_VBA自定义工具栏.docxVIP

Excel2003_VBA 自定义工具栏 Excel2003 VBA 自定义工具栏 在 Office 中通过 VBA 开发工具栏和菜单，需 使用 Office 提供的 CommandBa、CommandBarButton CommandBarComboB等对 象，这些对象即代表工具栏、工具栏按钮和工具栏下拉框，通过这些对象可编制出 各类复杂的工具栏或菜单。 1.CommandBars 集合 该集合代表 Office 所有的工具 栏，可用名称或索引号指定菜单栏或工具栏，但仅可用名称指定一个菜单、快捷菜 单或子菜单。如两个或两个以上自定义菜单或子菜单名称相同，则返回第一个具有 该名称的对象。 其 Add 方法用于新建一个工具栏，并返回 CommandBar 对象。 语法:expression.AddName Position MenuBar Temporary 参数说明：Name 为可选 的 Variant 类型，代表新工具栏的名称。如果省略，则使用默认的名称 ;Position 为可选的Variant类型，代表新工具栏的位置。该参数值可通过 VBA常量进行设 置，如 msoBarLeft 、 msoBarTop、 msoBarRight、 msoBarBottom 常量设置新工具栏 位于软件工具栏中位置 ;msoBarFloating 常量代表新工具栏可移动 ;msoBarPopup 常量代表新工具栏为快捷菜单等 ;MenuBar 为可选的 Variant 类型，用于设置是否 用新工具栏替换活动工具栏 ; Temporary 为可选的 Variant 类型，用于设置新工 具栏是否暂时有效。 2.CommandBar 对象 该对象代表应用程序中的工具栏，新建 工具栏的控件均以该对象为载体。 1Controls 属性： 返回 CommandBarControls 对 象，代表指定工具栏中的所有控件。 2NameLocal 属性： 返回由应用程序版本语言 所设置的工具栏名称，如对软件的内置工具栏设置会出现错误。 3Position 属性： 返回或设置工具栏的位置，值可通过 VBA 常量进行设置，如 msoBarLeft 、 msoBarTop msoBarRight、 msoBarBottom msoBarFloating 、 msoBarPopup或 msoBarMenu等。4Type属性：返回或设置工具栏的类型，值可通过 VBA常量进行 设置，如 msoBarTypeNormal工具栏为普通类型、 msoBarTypeMenuBa工具栏为菜 单类型、msoBarTypePopupT具栏为弹出菜单类型等。5Reset方法：将内置工具 栏重置为默认设置，在恢复软件原有工具栏或菜单时非常有用。重置内置工具栏将 删除其中的自定义控件并恢复其内置控件。 3.CommandBarControls 集合 该集合 代表工具栏中的所有工具栏控件。 其 Add 方法用于在 CommandBarControls 集合 中增加一个工具栏控件。 4.CommandBarControl 对象 该对象代表工具栏控件，对 自定义工具栏控件，可使用 CommandBarButton CommandBarComboB和 CommandBarPopup 对象进行定义，而对软件内置的控件进行操作，而该控件又无法使用上述三个 对象表示，则可使用 CommandBarControl 对象。 1BeginGroup 属性： 用于设置工 具栏控件是否分组显示。 2Caption 属性 ： 用于设置工具栏控件的标题文字，并可 作为默认的控件屏幕提示。 3Id 属性 ： 用于设置 CommandBarButton、 Comma ndBarComboB和Comma ndBarC on trol对象的功能，这些控件可直接设置为 内置工具栏控件的ID，这样该控件即具备了软件内置的相应功能，自定义控件的 ID 属性均需设置为 1。 4Copy 方法：将工具栏控件复制到已有的工具栏中。 语 法:expression.CopyBar Before 参数说明：Bar 为可选的Variant 类型，代表目 标工具栏，如果省略，则控件将复制到自身所在的工具栏 ;Before 为可选的 Variant 类型，代表新控件在指定工具栏的位置，即新控件将添加至该位置的控件 前，如果省略，则控件将复制到工具栏的末尾。 5Type 属性: 返回工具栏控件的类 型，可通过 VBA 常量进行引用，常用的工具栏控件类型如下表所示 :本文标签:常 量名称含义 msoControlButton 控制按钮 msoControlButtonDropdown 带下拉列表的 按钮 msoControlButtonPopup带弹出