Maximize Ribbon VBA

[ted.martin]

I have an application where I need to Minimize the Ribbon to load a rather large form using as much of the screen as possible; but I do not want to hide it. As such I use the fooloiwng code in the switchboard load event.

  CommandBars.ExecuteMso "MinimizeRibbon"

The problem is when this application is closed and a different Access database loads, the Ribbon remain Minimized; I need it Maximized.

The following code does not work.

  CommandBars.ExecuteMso "MaximizeRibbon"

Does anyone know the solution?

Thank you.

 

[ted.martin]

Microsoft logic never fails to surprise me.

Apparently the code above is a Toggle so if the ribbon is already minimized, then the same code

 CommandBars.ExecuteMso "MinimizeRibbon"

maximizes the Ribbon. :banghead:

So I now use the following code in the Switchboard Load event on applications where I want the maximized ribbon to show.

 if RibbonIsMinimised = Application.CommandBars("Ribbon").Height < 100 then CommandBars.ExecuteMso "MinimizeRibbon"

On my pc 79 is the Minimized ribbon height and 159 when Maximized; hence I chose 100 !!

 

[Dreekx]

I have tried the above but it doesn't work. I tried a few things and I found the following:
On my PC Ribbon Minimized height = 97 en Maximized = 190
Code: If Application.CommandBars ("Ribbon"). Height <120 Then CommandBars.ExecuteMso "MinimizeRibbon"
I placed the code in the report load and it worked perfectly!