[AccessD] Turn off the ribbons programmatically

I just pulled up my Office2007 Virtualbox and had a play - seems it is fairly simple.

My Height was slightly different to those in the link, probably because of different screen 
resolutions, fonts etc but it looks like it will always be  above/below 100 so this should work 
anywhere. It certainly works for me:  

Function RibbonMinimized() As Boolean
RibbonMinimized = Application.CommandBars("Ribbon").Height < 100
End Function

The following four functions give you full control over the Ribbon :-)

Function HideRibbon()
       DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Function

Function ShowRibbon()
       DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Function

Function MinimizeRibbon()
    If Not RibbonMinimized Then SendKeys "^{F1}"
    End If
End Function

Function MaximizeRibbon()
    If RibbonMinimized Then SendKeys "^{F1}"
    End If
End Function

(Hey Susan - is this worth an article?)

-- 
Stuart

On 3 Dec 2008 at 13:19, Rocky Smolin at Beach Access  wrote:

> Could it be that simple??!!!
> 
> R
>  
>  
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Martin Reid
> Sent: Wednesday, December 03, 2008 11:44 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Turn off the ribbons programmatically
> 
> Rocky
> 
> Have a look at this
> 
> http://social.msdn.microsoft.com/Forums/en-US/vsto/thread/a265e083-b0a5-4a84
> -a855-fd7c6f510d03/
> 
> The idea is to minimize the ribbon to reclaim the screen space.
> 
> Try
> 
> DoCmd.ShowToolbar "Ribbon", acToolbarNo
> 
> 
> 
> Martin
> 
> 
> 
> Martin WP Reid
> Information Services
> Queen's University
> Riddel Hall
> 185 Stranmillis Road
> Belfast
> BT9 5EE
> Tel : 02890974465
> Email : mwp.reid at qub.ac.uk
> ________________________________________
> From: accessd-bounces at databaseadvisors.com
> [accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at Beach
> Access Software [rockysmolin at bchacc.com]
> Sent: 03 December 2008 18:40
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Turn off the ribbons programmatically
> 
> Thanks.  I'll give it a try.
> 
> 
> 
> 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
> www.bchacc.com
> 
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
> Sent: Wednesday, December 03, 2008 10:32 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Turn off the ribbons programmatically
> 
> Rocky,
> 
>   Here are some instructions I found (not sure where) for turning off the
> ribbion.  I believe I posted them once before and someone said they didn't
> work, but you might want to give it a try anyway.
> 
> HTH,
> Jim.
> 
> # re: Customizing the New Access UI
> Friday, July 14, 2006 6:15 PM by clintc For those of you who want to
> completely get rid of the ribbon--here are the
> steps:
> 
> 1. Create a new table called USysRibbons.
> 2. Add two fields RibbonName (text) and RibbonXML (Memo).
> 3. Create a new record with the name "Blank" (doesn't really matter what you
> call it). Also add the following XML:
> <CustomUI
> xmlns="http://schemas.microsoft.com/office/2006/01/CustomUI"><Ribbon
> startFromScratch="true"/></CustomUI>
> 4. Restart your database.
> 5. Go into the Office Button | Access Options. Click on the Current
> Database.
> 6. In the Toolbars Option set the Custom Ribbon Id to Blank (name in step
> 3).
> 7. Restart the database.
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
> Beach Access Software
> Sent: Wednesday, December 03, 2008 11:51 AM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Turn off the ribbons programmatically
> 
> 
> 
> Dear List:
> 
> Is there a way to turn off the A2007 ribbons programmatically?  In a way
> that will not cause the program to barf if it's being run by A2003?
> 
> I have a legacy 2003 app that's run by the client on 2007.  The ribbon takes
> up so much freakin' real estate that you can't see the whole form on the
> display.  Especially the exit button at the bottom which is kind of
> important.
> 
> I got the navigation pane to turn off: DoCmd.RunCommand acCmdWindowHide, but
> not the ribbon.
> 
> MTIA
> 
> Rocky
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com