《如何在excel中自定义菜单和菜单栏》由会员分享，可在线阅读，更多相关《如何在excel中自定义菜单和菜单栏（26页珍藏版）》请在金锄头文库上搜索。
1、如何在 Excel 中自定义菜单和菜单栏概要本文介绍如何在 Microsoft Excel 2000 以及更高版本中自定义菜单和菜单栏。其中包含关于以编程方式在 Microsoft Excel 中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单的分步说明和代码示例。返回目录简介要在 Microsoft Excel 2000、Microsoft Excel 2002 和 Microsoft Office Excel 2003 中执行许多与自定义菜单栏和菜单相关的常见任务，请使用“自定义” 对话框。要执行更多高级任务或为自定义程序定制菜单栏和菜单，可能需要创建 Microsoft Visual B
2、asic for Applications (VBA) 代码。 有关如何使用“自定义 ”对话框的更多 信息，请单击“帮助”菜单上的 “Microsoft Excel 帮助”，在“Office 助手”或 “应答向导 ”中键入自定义菜单栏，然后单击“搜索” 以查看主题。 本文帮助您学习编写 VBA 代码，掌握自定义菜单栏、菜单、菜单项、子菜单和快捷菜单的方法。返回目录更多信息Microsoft 提供的编程示例只用于说明目的，不附带任何明示或默示的保证。这包括但不限于对适销性或特定用途适用性的默示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助
3、解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。 返回目录本文中的示例本文中的示例在 Excel 2000、Excel 2002 和 Excel 2003 中使用 VBA 代码来自定义菜单。要使用示例宏，请按照下列步骤操作： 1. 启动 Excel。2. 在“工具”菜单上，指向“ 宏”，然后单击“Visual Basic 编辑器”。3. 在“插入”菜单上，单击“ 模块 ”。4. 键入本文中的一个宏示例，也可使用复制粘贴操作将宏示例复制到模块表中。5. 在“运行”菜单上，单击“ 运行子过程 /用户窗体”。6. 如果出现“宏”对话框，请单击宏名称，然后
4、单击“ 运行”。返回目录命令栏在 Microsoft Office 中，所有工具栏、菜单栏和快捷菜单都是被作为“命令栏”这样一种对象以编程方式控制的。下列所有项目在 VBA 中皆用 CommandBar 对象表示： 菜单栏、工具栏和快捷菜单。 菜单栏和工具栏上的菜单。 菜单、子菜单和快捷菜单上的子菜单。您可以修改任何内置的菜单栏和工具栏，还可以创建和修改用您自己的 VBA 代码交付的自定义工具栏、菜单栏和快捷菜单。您可以将程序功能以单个按钮的形式放在工具栏上，或以命令名称组的形式放在菜单上。因为工具栏和菜单都是命令栏，所以可以使用同一类型的控件。在 VBA 和 Microsoft Visual
5、 Basic 中，按钮和菜单项用 CommandBarButton 对象表示。显示菜单和子菜单的弹出控件用 CommandBarPopup 对象表示。在以下示例中，名为“Menu” 的控件和名为“Submenu”的控件都是用于显示菜单和子菜单的弹出控件，并且这两个控件是各自的控件集中唯一的 CommandBar 对象。在 Microsoft Excel 中，菜单栏和工具栏被视为是同一种可编程对象，即 CommandBar 对象。可以使用 CommandBar 对象中的控件来指代菜单、菜单项、子菜单和快捷菜单。可以在 Type 参数中使用一个常量为每个控件指定要用于菜单、子菜单或命令的控件类型。
6、返回目录控件常量下面是 Excel 2003 中的各种控件常量的列表，这些常量指定用于特定菜单栏控件的图形控件类型： MsoControlActiveX* MsoControlAutoCompleteCombo* MsoControlButton MsoControlButtonDropdown MsoControlButtonPopup MsoControlComboBox MsoControlCustom MsoControlDropdown MsoControlEdit MsoControlExpandingGrid MsoControlGauge MsoControlGenericDr
7、opdown MsoControlGraphicCombo MsoControlGraphicDropdown MsoControlGraphicPopup MsoControlGrid MsoControlLabel MsoControlLabelEx* MsoControlOCXDropDown MsoControlPane * MsoControlPopup MsoControlSpinner* MsoControlSplitButtonMRUPopup MsoControlSplitButtonPopup MsoControlSplitDropdown MsoControlSplitE
8、xpandingGrid MsoControlWorkPane* 表示 Microsoft Excel 2000 中的新增项* 表示 Microsoft Excel 2002 中的新增项* 表示 Microsoft Office Excel 2003 中的新增项菜单栏菜单栏是一种命令栏。它是一种可在其中添加菜单、菜单项和子菜单的对象。有关如何在 Excel 中管理菜单栏和菜单项的更多信息，请按照下列步骤操作： 1. 启动 Microsoft Visual Basic 编辑器。2. 在“帮助”菜单上，单击“Microsoft Visual Basic 帮助”。3. 在“Office 助手”框或“
9、 应答向导” 框中，键入菜单栏，然后单击 “搜索” 。4. 在 Excel 2003 和 Excel 2002 中，单击“添加和管理菜单栏和菜单项”。在 Excel 2000 中，单击“关于菜单和工具栏”。可以在运行时修改菜单栏及该菜单栏上的控件。对菜单栏所做的更改可能会影响菜单栏的外观或位置。可对控件进行的更改取决于控件类型。下表列出了最常见的属性和常用于更改控件的状态、操作或内容的方法：属性或方法用途Add 添加菜单栏，方法是使用 CommandBars 对象集合的 Add 方法，然后为 Menubar 参数指定 TRUE 值。Enabled如果 Enabled 属性的值为 TRUE，那么
10、用户可以使用 Visual Basic 代码使指定的菜单栏可见。如果 Enabled 属性的值为 FALSE，用户就无法让菜单栏可见。不过，菜单栏将出现在可用命令栏列表中。Protection 使您可以通过特定用户操作来保护菜单栏。Position指定新菜单栏相对于程序窗口的位置。菜单栏相对于程序窗口的位置可以是以下 MsoBarPosition 常量属性之一：msoBarLeft、msoBarTop、msoBarRight、msoBarBottom 、msoBarFloating 、msoBarPopup（用于创建快捷菜单）或 msoBarMenuBar（仅用于 Apple Macintos
11、h）。Visible 指定控件是可见的，还是隐藏的。返回命令栏控件的 ID以下代码示例返回活动菜单栏的 ID：Sub Id_Control () Dim myId as Object set myId = CommandBars(Worksheet Menu Bar).Controls(Tools) MsgBox myId.Caption & Chr(13) & MyId.Id End Sub 确定活动菜单栏的名称以下代码示例返回活动菜单栏的名称：Sub MenuBars_GetName() MsgBox CommandBars.ActiveMenuBar.Name End Sub 保存（内置
12、或自定义菜单栏的）活动状态您可能需要将 OriginalMenuBar 变量声明为公共变量，这样，子例程就可以在其他子例程（如 Auto_Close 子例程）中使用该变量。以这种方式声明和使用该变量会将用户的上一个菜单栏重置为初始状态。以下示例宏重置菜单栏：Public OriginalMenuBar as Object Sub MenuBars_Capture() Set OriginalMenuBar = CommandBars.ActiveMenuBar End Sub创建自定义命令栏以下代码示例创建名为 My Command Bar 的自定义命令栏： Sub MenuBar_Creat
13、e() Application.CommandBars.Add Name:=My command bar End Sub 您还可以通过使用 Temporary:=True 参数来创建自定义命令栏。 Temporary:=True 参数允许命令栏在您退出 Excel 时自动重置。以下代码使用 Temporary:=True 参数创建自定义命令栏：Sub MenuBar_Create() Application.CommandBars.Add Name:=My command bar, Temporary:=True End Sub显示自定义命令栏以下示例创建并显示自定义的“My Custom B
14、ar”菜单栏，然后用它替换内置的菜单栏： Sub MenuBar_Show() Dim myNewBar As Object Set myNewBar = CommandBars.Add(Name:=Custom1, Position:=msoBarFloating) You must first enable your custom menu bar before you make it visible. Enabling a menu bar adds it to the list of available menu bars on the Customize dialog box. Se
15、tting the menubar property to True replaces the built-in menu bar. myNewBar.Enabled = True myNewBar.Visible = True End Sub 删除自定义命令栏以下代码示例删除名为“Custom 1”的自定义菜单栏： Sub MenuBar_Delete() CommandBars(Custom1).Delete End Sub 隐藏命令栏以下代码示例从可用菜单栏列表中删除内置“图表” 菜单栏： Sub MenuBar_Display() CommandBars(Chart).Enabled
16、= False End Sub显示命令栏以下代码示例从可用菜单栏中添加内置“图表” 菜单栏：Sub MenuBar_Display() CommandBars(Chart).Enabled = True End Sub还原内置命令栏还原菜单栏会重置（菜单和菜单项的）默认控件。以下代码示例还原内置“图表”菜单栏： Sub MenuBar_Restore() CommandBars(Chart).Reset End Sub注意：您只能重置内置菜单栏，不能重置自定义菜单栏。菜单还原菜单栏会重置（菜单和菜单项的）默认控件。以下代码示例还原内置“图表”菜单栏：Sub MenuBar_Restore() CommandBars(Chart).Re
