ExcelVBA自定义菜单和菜单栏.docVIP

Excel VBA自定义菜单和菜单栏 前言 3 一、简介 3 二、命令栏 4 三、控件常量 4 四、菜单栏 6 4.1 Add方法应用于CommandBars对象 6 4.2返回命令栏控件的 ID 7 4.3确定活动菜单栏的名称 7 4.4保存（内置或自定义菜单栏的）活动状态 8 4.5创建自定义命令栏 8 4.6显示自定义命令栏 8 4.7删除自定义命令栏 9 4.8隐藏命令栏 9 4.9显示命令栏 9 4.10还原内置命令栏 9 五、菜单 10 5.1 Add方法用于CommandBarControls对象 10 5.2向命令栏添加自定义菜单控件 11 5.3禁用命令栏上的菜单控件 11 5.4启用命令栏上的菜单控件 11 5.5删除命令栏上的菜单控件 12 5.6还原命令栏上的菜单控件 12 六、命令 12 6.1向菜单控件添加分隔条 13 6.2在菜单上创建自定义命令控件 13 6.3在命令控件旁放置选中标记 13 6.4禁用命令栏上的命令控件 14 6.5启用命令栏上的命令控件 14 6.6删除菜单上的命令控件 15 6.7还原菜单上的内置命令控件 15 七、子菜单 15 7.1添加子菜单 16 7.2向子菜单添加命令 16 7.3禁用子菜单上的命令控件 16 7.4删除子菜单上的命令 17 7.5禁用子菜单控件 17 7.6删除子菜单控件 17 八、快捷菜单栏 18 8.1新建快捷菜单栏 18 九、快捷菜单 19 9.1在快捷菜单栏上创建命令 19 9.2禁用快捷菜单栏上的命令控件 19 9.3删除快捷菜单栏上的命令 20 9.4删除快捷菜单栏 20 9.5还原内置快捷菜单栏上的命令 20 十、快捷菜单上的子菜单 20 10.1在快捷菜单栏上新建子菜单 21 10.2在快捷菜单栏的子菜单上创建命令控件 21 10.3禁用快捷菜单上的子菜单项控件 22 10.4删除快捷菜单上的子菜单项控件 22 10.5禁用快捷菜单上的子菜单控件 22 10.6删除快捷菜单上的子菜单控件 23 前言 在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。 本文着重介绍如何在 Excel 2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel 中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。 与大家分享关于VBA实现菜单栏管理与自定义菜单栏功能的实现。 一、简介 在 Microsoft Excel 2000以上版本中实现许与自定义菜单栏和菜单相关的常见任务，可以使用“自定义”对话框（见图1.1）。但如果要实现较高级任务或为自定义程序定制菜单栏和菜单，就需要创建 Microsoft Visual Basic for Applications (VBA) 代码。 图1.1 有关如何使用“自定义”对话框的更多信息，你可以单击“帮助”菜单上的“Microsoft Excel 帮助”，在“Office 助手”或“搜索向导”中键入自定义菜单栏，然后单击“搜索”查看主题。 二、命令栏 在 Microsoft Office 中，所有工具栏、菜单栏和快捷菜单都是被作为“命令栏”这样一种对象以编程方式控制的。下列所有项目在 VBA 中皆用 CommandBar 对象表示： 菜单栏、工具栏和快捷菜单。 菜单栏和工具栏上的菜单。 菜单、子菜单和快捷菜单上的子菜单。 您可以修改任何内置的菜单栏和工具栏，还可以创建和修改用您自己的 VBA 代码交付的自定义工具栏、菜单栏和快捷菜单。您可以将程序功能以单个按钮的形式放在工具栏上，或以命令名称组的形式放在菜单上。因为工具栏和菜单都是命令栏，所以可以使用同一类型的控件。 在 VBA 和 Microsoft Visual Basic 中，按钮和菜单项用 CommandBarButton 对象表示。显示菜单和子菜单的弹出控件用 CommandBarPopup 对象表示。在以下示例中，名为“Menu”的控件和名为“Submenu”的控件都是用于显示菜单和子菜单的弹出控件，并且这两个控件是各自的控件集中唯一的 CommandBar 对象。 在 Microsoft Excel 中，菜单栏和工具栏被视为是同一种可编程对象，即 CommandBar 对象。可以使用 CommandBar 对象中的控件来指代菜单、菜单项、子菜单和快捷菜单。可以在 Type 参数中使用一个常量为每个控件指定要用于菜单、子菜单或命令的控件类型。 三、控件常量 下面是 Excel 2003 中的各种控件常量的列表，这些常量指定用于特定菜单栏控件的图形控件类型： ? Ms