如何把excel里面的菜单栏、还有行标、列标去掉？

2025-02-26 09:59:58

推荐回答（1个）

回答1：

菜单栏菜单栏是一种命令栏。它是一种可在其中添加菜单、菜单项和子菜单的对象。

有关如何在 Excel 中管理菜单栏和菜单项的更多信息，请按照下列步骤操作：启动 Microsoft Visual Basic 编辑器。在“帮助”菜单上，单击“Microsoft Visual Basic 帮助”。在“Office 助手”框或“应答向导”框中，键入菜单栏，然后单击“搜索”。在 Excel 2003 和 Excel 2002 中，单击“添加和管理菜单栏和菜单项”。在 Excel 2000 中，单击“关于菜单和工具栏”。可以在运行时修改菜单栏及该菜单栏上的控件。对菜单栏所做的更改可能会影响菜单栏的外观或位置。可对控件进行的更改取决于控件类型。下表列出了最常见的属性和常用于更改控件的状态、操作或内容的方法：
收起该表格展开该表格属性或方法用途Add添加菜单栏，方法是使用 CommandBars 对象集合的 Add 方法，然后为 Menubar 参数指定 TRUE 值。Enabled如果 Enabled 属性的值为 TRUE，那么用户可以使用 Visual Basic 代码使指定的菜单栏可见。如果 Enabled 属性的值为 FALSE，用户就无法让菜单栏可见。不过，菜单栏将出现在可用命令栏列表中。Protection使您可以通过特定用户操作来保护菜单栏。Position指定新菜单栏相对于程序窗口的位置。菜单栏相对于程序窗口的位置可以是以下 MsoBarPosition 常量属性之一：msoBarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloating、msoBarPopup（用于创建快捷菜单）或 msoBarMenuBar（仅用于 Apple Macintosh）。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
保存（内置或自定义菜单栏的）活动状态您可能需要将 OriginalMenuBar 变量声明为公共变量，这样，子例程就可以在其他子例程（如 Auto_Close 子例程）中使用该变量。以这种方式声明和使用该变量会将用户的上一个菜单栏重置为初始状态。以下示例宏重置菜单栏：
Public OriginalMenuBar as Object Sub MenuBars_Capture() Set OriginalMenuBar = CommandBars.ActiveMenuBar End Sub
创建自定义命令栏以下代码示例创建名为 My Command Bar 的自定义命令栏：
Sub MenuBar_Create() 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 Bar”菜单栏，然后用它替换内置的菜单栏：
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. ' Setting 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 = 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").Reset End Sub注意：您只能重置内置菜单栏，不能重置自定义菜单栏。

向命令栏添加自定义菜单控件以下代码示例将您通过编程方式添加的菜单名称添加到“工作表”菜单栏中。例如，此代码会将菜单名称“New Menu”添加到“工作表”菜单栏中。

注意：您可以根据需要为该菜单指定任何名称。
Sub Menu_Create() Dim myMnu As Object Set myMnu = CommandBars("Worksheet menu bar").Controls. _ Add(Type:=msoControlPopup, before:=3) With myMnu ' The "&" denotes a shortcut key assignment (Alt+M in this case). .Caption = "New &Menu" End With End Sub
禁用命令栏上的菜单控件禁用的菜单控件在命令栏中显示为灰色，并且不可用。以下示例禁用“New Menu”菜单：
Sub Menu_Disable() CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False End Sub
启用命令栏上的菜单控件以下代码示例启用您在“禁用命令栏上的菜单控件”一节中禁用的 New Menu 菜单：
Sub Menu_Disable() CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True End Sub
删除命令栏上的菜单控件以下代码示例从“工作表”菜单栏中删除您在“向命令栏添加自定义菜单控件”一节中创建的“New Menu”菜单：
Sub Menu_Delete() CommandBars("Worksheet menu bar").Controls("New &Menu").Delete End Sub
还原命令栏上的菜单控件以下代码示例还原“工作表”菜单栏上的内置“图表”菜单栏：
Sub Menu_Restore() Dim myMnu As Object Set myMnu = CommandBars("Chart") myMnu.Reset End Sub

隐形眼镜可以测度数吗

买满200减40的促销活动的利与弊。

海贼王巴基动画出场所有集数

恶魔城月下夜想曲中是否有一把杀人越多攻击越强的剑，如有，在哪获得啊！！

苏州园区代取公积金多久能取出来，我自离

汽车仪表上防盗器指示灯亮,为什么打不着火，原理是怎样的

现在有点闲钱要投资什么好

军校最低分数录取多少分

四川大学国际关系考研推免生有多少人

如何把excel里面的菜单栏、 还有行标、 列标去掉？

如何把excel里面的菜单栏、还有行标、列标去掉？