Mit folgendem Code stellen Sie den Status des Ribbons fest:
Function RibbonState() As Long
'Status des Ribbon; Result: 0=normal, -1=minimiert
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function
Vielen Dank dafür an Sascha Trowitzsch:http://www.mosstools.de/
Die Informationen über den Ribbon State sind auch in der Registry zu finden:
[HKEY_CURRENT_USER]\Software\Microsoft\Office\1x.0\Common\Toolbars\Access
Value Name: QuickAccessToolbarStyle
Value Data: 0 (Ribbon = normal)
Value Data: 4 (Ribbon = minimiert)
In den Downloads finden Sie eine Beispiel Datenbank welche demonstriert, wie Sie die Anzeigegröße des Ribbons per Code festlegen können.
In Access 2010 können Sie den Ribbon mittels
CommandBars.ExecuteMso "MinimizeRibbon"
minimieren bzw. normal anzeigen