|
转贴(电脑报):VBA开发实用指南(3) 1.CommandBars集合 该集合代表Office所有的工具栏，可用名称或索引号指定菜单栏或工具栏，但仅可用名称指定一个菜单、快捷菜单或子菜单。如两个或两个以上自定义菜单或子菜单名称相同，则返回第一个具有该名称的对象。 其Add方法用于新建一个工具栏，并返回 CommandBar对象。 语法：eXPression.Add(Name, Position, MenuBar, Temporary) 参数说明： Name为可选的Variant 类型，代表新工具栏的名称。如果省略，则使用默认的名称；Position为可选的Variant 类型，代表新工具栏的位置。该参数值可通过VBA常量进行设置，如msoBarLeft、msoBarTop、msoBarRight、msoBarBottom常量(设置新工具栏位于软件工具栏中位置)；msoBarFloating常量(代表新工具栏可移动)；msoBarPopup常量(代表新工具栏为快捷菜单)等；MenuBar为可选的Variant 类型，用于设置是否用新工具栏替换活动工具栏；Temporary为可选的Variant 类型，用于设置新工具栏是否暂时有效。 2.CommandBar对象 该对象代表应用程序中的工具栏，新建工具栏的控件均以该对象为载体。 (1)Controls属性：返回CommandBarControls对象，代表指定工具栏中的所有控件。 (2)NameLocal属性：返回由应用程序版本语言所设置的工具栏名称，如对软件的内置工具栏设置会出现错误。 (3)Position属性：返回或设置工具栏的位置，值可通过VBA常量进行设置，如msoBarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloating、msoBarPopup或msoBarMenu等。 (4)Type属性：返回或设置工具栏的类型，值可通过VBA常量进行设置，如msoBarTypeNormal(工具栏为普通类型)、msoBarTypeMenuBar(工具栏为菜单类型)、msoBarTypePopup(工具栏为弹出菜单类型)等。 (5)Reset方法：将内置工具栏重置为默认设置，在恢复软件原有工具栏或菜单时非常有用。重置内置工具栏将删除其中的自定义控件并恢复其内置控件。 3.CommandBarControls集合 该集合代表工具栏中的所有工具栏控件。 其Add方法用于在CommandBarControls集合中增加一个工具栏控件。 4.CommandBarControl对象 该对象代表工具栏控件，对自定义工具栏控件，可使用 CommandBarButton、CommandBarComboBox和CommandBarPopup对象进行定义，而对软件内置的控件进行操作，而该控件又无法使用上述三个对象表示，则可使用CommandBarControl对象。 (1)BeginGroup属性：用于设置工具栏控件是否分组显示。 (2)Caption属性：用于设置工具栏控件的标题文字，并可作为默认的控件屏幕提示。 (3)Id属性：用于设置CommandBarButton、CommandBarComboBox和CommandBarControl对象的功能，这些控件可直接设置为内置工具栏控件的ID，这样该控件即具备了软件内置的相应功能，自定义控件的ID属性均需设置为1。 (4)Copy方法：将工具栏控件复制到已有的工具栏中。 语法：eXPression.Copy(Bar, Before)
| 
