Minimize Ribbon

[kywe665]

I want to minimize the ribbon in Excel 2013 with VBA. I do not want to toggle the ribbon, and I do not want to hide everything including "File", "Insert", etc. I have tried several different methods, but none satisfy what I want. This hides everything:

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

This toggles:

CommandBars.ExecuteMso "MinimizeRibbon"

And this also toggles:

SendKeys "^{F1}"

How can I simply force my ribbon to be minimized?

 

[davidam]

If CommandBars("Ribbon").Height > 100 Then
   CommandBars.ExecuteMso "MinimizeRibbon"
End If