[AccessD] A2007 - Programmatically Minimize Ribbon

Agree.  In A2003 I never saw anything that could be done through the
toolbars or otherwise, that could not be done in VBA using one or another
object model.  This seems to be a real basic difference in 2007.  Why would
the ribbon be exempted from programmatic manipulation.  Why no
Application.Ribbon. Or a DoCmd.Ribbon?


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 jwcolby
Sent: Thursday, February 05, 2009 6:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] A2007 - Programmatically Minimize Ribbon

All of this to get rid of something that should be directly programmatically
manipulatable.

John W. Colby
www.ColbyConsulting.com


William Hindman wrote:
> "SendKeys"?????????
> 
> ...shakes head ...returns to A2K3 :(
> 
> ...sorry Stu, just couldn't help myself :)
> 
> William
> 
> --------------------------------------------------
> From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
> Sent: Wednesday, February 04, 2009 10:14 PM
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] A2007 - Programmatically Minimize Ribbon
> 
>> Rocky!
>>
>> This was answered  two months ago when you asked about "turning off 
>> the ribbons programmatically"
>>
>> Here's what I posted then:
>> 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
>>
>>
>> --
>> 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