Excel 2013 中的 VBA 自动隐藏功能区

Question

如何在 VBA 中的 Excel 2013 中 Auto-hide Ribbon？我想通过单击下图中标有蓝色的 Excel 菜单右上角的上箭头图标，然后单击标有橙色的第一个选项来实现我所得到的：

我也对 VBA 切换回第三个选项 Show Tabs and Commands 感兴趣。对我来说重要的是在 Excel 菜单中保留上箭头图标（标记为蓝色）。

我已经尝试过此线程中显示的提示：VBA minimize ribbon in Excel 但我对结果并不满意。

尝试 1

Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)

这很好，但隐藏了蓝色图标。

尝试 2

CommandBars.ExecuteMso "MinimizeRibbon"

这接近我想要的。这会保留蓝色图标，但不会隐藏整个菜单。切换到图片Show Tabs中显示的第二个选项。

尝试 3

SendKeys "^{F1}"

attampt 根本不起作用。此外，它应该模仿尝试2。所以即使这样我也不会满足。

Answer 1

我看不到其他人提出了这个问题...这不是解决方法，这是我认为您正在寻找的实际 idMSO。这段代码让我的 excel 窗口看起来就像第一个选项对 Auto-Hide Ribbon 所做的一样，一切都消失了。

在代码运行之前，我的窗口看起来像这样，“恢复”大小：

运行以下代码：

Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

将使您的窗口看起来像这样，以最大化的窗口大小（就像您手动按下 Auto-Hide Ribbon 按钮会发生的情况一样）：

如果您希望在工作簿打开时自动隐藏功能区，请将其放入工作簿代码中：

Sub Workbook_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

或者，为了实现同样的目的，您可以将此代码放在一个模块中：

Sub Auto_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

如果您希望窗口恢复正常，请再次运行完全相同的代码。 换句话说，以下代码在运行时不会产生任何视觉变化，因为 idMSO "HideRibbon " 是一个切换按钮：

Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
    CommandBars.ExecuteMso "HideRibbon"
End Sub

如果您想要 excel 中所有 idMSO 的完整列表，请单击适用于您的以下内容：Excel 2013+、Excel 2010、Excel 2007

Answer 2

我将其用于演示目的

ActiveWindow.DisplayGridlines = False

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

Application.DisplayFullScreen = True这是我用来隐藏功能区的方法

Answer 3

也许你应该做一些更复杂的事情：

使用CommandBars.ExecuteMso "MinimizeRibbon" 显示/隐藏功能区。 根据您的需要，您可以显示/隐藏功能区中的所有其他选项卡。例如。在这里使用一些代码 -> Excel Hide/Show all tabs on Ribbon except custom tab

因此两个步骤：

第 1 步 - 使用 CommandBars.ExecuteMso 显示或隐藏

第 2 步 - 使用链接中的一些宏显示或隐藏其余选项卡。

有点大的解决方法，但你会得到你想要的。

Answer 4

我在 Workbook_Open 上调用此宏来检查功能区，如果没有隐藏，它将隐藏功能区（实际上我将它位于另一个 Sub 中，它也删除了 Workbook_Open 的公式栏、状态栏、标题和网格线） ...

Sub HideRibbon()
If CommandBars("Ribbon").Controls(1).Height < 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

然后我在 Workbook_BeforeClose 上调用此宏以检查功能区，如果未显示，它将显示下一个打开的 Excel 电子表格的功能区。

Sub ShowRibbon()
If CommandBars("Ribbon").Controls(1).Height > 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

这消除了在打开工作簿时隐藏功能区的机会，然后用户手动显示功能区，这反过来会在关闭时反转显示并实际隐藏功能区。打开时，功能区将再次显示。这将在每次打开和关闭工作簿时保持相同。

Answer 5

试试这个：

Sub ShowHideRibbon()

If CommandBars("Ribbon").Controls(1).Height < 100 Then
    CommandBars.ExecuteMso ("MinimizeRibbon")
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If

End Sub

或者这个：

Sub ShowHideRibbon1()

If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If

End Sub

Answer 6

首先，转到 Excel 选项，然后转到“快速操作工具栏”。

从那里，搜索“隐藏功能区”并添加到工具栏。在 QAT 上之后，您可以使用 ALT+# 快速调用它（在我的计算机上它是第 8 件事，因此 ALT+8 将自动隐藏）。

然后只需添加一个执行 SendKeys ALT 然后 8 的子：

Sub Macro1()
ActiveSheet.Activate
'Cells(1, 1).Select
SendKeys "%0", True
SendKeys "8", True

End Sub

注意：我知道拥有ActiveSheet.Activate 很愚蠢，我只是添加它来测试宏。根据调用方式，您可以删除/注释掉该行。 % 等同于 ALT，从技术上讲，我必须按 0 再按 8，因此是两条线。

Answer 7

要让此代码在 excel 2016 中工作，您需要在“ThisWorkbook”模式下使用以下代码。

归功于 BigBen - 而不是我

Private Sub Workbook_Open()
application.CommandBars.ExecuteMso "HideRibbon"
End Sub