Beitrag aus SmartTools Access Weekly
Menüband per VBA minimieren
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Beim Öffnen einer Datenbank rufe ich über ein AutoExec-Makro eine Initialisierungsroutine auf, die unter anderem das Menüband mit der folgenden Anweisung minimieren soll: CommandBars.ExecuteMso "MinimizeRibbon". Das funktioniert allerdings nicht zuverlässig. Kann es sein, dass diese Methode nicht richtig funktioniert? Welche Möglichkeiten gäbe es noch, das Menüband immer minimiert anzuzeigen?
Diverse Anfragen
ANTWORT Bei dieser Funktion handelt es sich um eine Umschaltfunktion: Ist die Multifunktionsleiste/das Menüband bereits minimiert, führt ein erneuter Aufruf dazu, dass das Menüband wieder maximiert wird. Um ein immer minimiertes Menüband beim Start der Datenbank zu erreichen, nutzen Sie folgende Anweisungen in Ihrer Initialisierungsroutine:
If Not CommandBars.GetPressedMso("MinimizeRibbon") Then
CommandBars.ExecuteMso "MinimizeRibbon"
End If
Diese Anweisungen prüfen zunächst über "GetPressedMso", das Menüband bereits minimiert angezeigt wird. Ist das nicht der Fall, erfolgt der Aufruf der Anweisung zum Minimieren und verhindert so ein Umschalten von "Minimiert" auf "Normal".