VBA 使用 SendKeys 最小化色带

VBA to minimize ribbon with SendKeys

如解决方案 here 中所述,我创建了以下 VBA 以最小化 Excel 中的功能区菜单:

Sub Minimize_Ribbon()
SendKeys "^{F1}"
End Sub

但是,当我 运行 这个 VBA 它打开以下 link 到 Microsoft 的 Help 部分:
https://docs.microsoft.com/de-de/office/vba/api/overview/language-reference?redirectedfrom=MSDN

我认为这个问题是因为不知何故 ^ 应该 运行 Ctrl 在 VBA 中不起作用。
我需要更改什么才能使其正常工作?

如评论中所述,解决方案是:

Sub Minimize_Ribbon()
CommandBars.ExecuteMso "MinimizeRibbon"
End Sub