VBA 最小化 Excel 中的功能区

Question

我想使用 VBA 最小化 Excel 2013 中的功能区。我不想切换功能区，也不想隐藏所有内容，包括"file"、“插入”等。我尝试了几种不同的方法，但没有一个满足我想要的。

这隐藏了一切:

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

此切换:

CommandBars.ExecuteMso "MinimizeRibbon"

这也会切换:

SendKeys "^{F1}"

如何简单地强制最小化功能区？

Answer 1

测量功能区高度，切换它，再次测量，如果更高，则重新切换。最好还设置 Application.Screenupdating = false。

ht1 = Application.CommandBars("Ribbon").Height
SendKeys "^{F1}", False
DoEvents
ht2 = Application.CommandBars("Ribbon").Height
If ht2 > ht1 Then SendKeys "^{F1}", False

我确实讨厌人们质疑你为什么想做你想做的事。我有一个独裁者应用程序，需要 100% 控制与 Excel 的交互。