VBA Tipp: Menüband, Statusleiste aus/einblenden

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte

  • abfragen, ob das Menüband (Ribbon) minimiert ist
  • das Menüband minimieren bzw. maximieren (erweitern)
  • abfragen, ob das Menüband ein- bzw. ausgeblendet ist
  • das Menüband ausblenden bzw. einblenden
  • die Statusleiste ausblenden bzw. einblenden

Das Menüband gibt es seit Access 2007.


Lösung: Abfragen, ob das Menüband minimiert ist

Das geht mit folgender Funktion, die in einem globalen Modul hinterlegt wird.
Die Funktion wird bei der untenstehenden Lösung Menüband minimieren bzw. maximieren verwendet.

Public Function MenuebandIstMinimiert() As Boolean
 
   'Abfragen, ob das Menüband (Ribbon) minimiert ist
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   MenuebandIstMinimiert = (CommandBars("Ribbon").Controls(1).Height < 100)
 
End Function


Lösung: Menüband minimieren bzw. maximieren

Das geht mit folgenden Prozeduren, die in einem globalen Modul hinterlegt werden.
Die Funktion MenübandMinimiert() (siehe oben) muß in einem globalen Modul hinterlegt sein.

Public Sub MenuebandMinimieren()
 
  'Menüband minimieren
  'Die Funktion "MenuebandIstMinimiert()" muß vorhanden sein.
  'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   If MenuebandIstMinimiert = False Then
      CommandBars.ExecuteMso "MinimizeRibbon"
   End If
 
End Sub
Public Sub MenuebandMaximieren()
 
   'Menüband maximieren
   'Die Funktion "MenuebandIstMinimiert()" muß vorhanden sein.
   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   If MenuebandIstMinimiert Then
      CommandBars.ExecuteMso "MinimizeRibbon"
   End If
 
End Sub


Lösung: Abfragen, ob das Menüband ein- bzw. ausgeblendet ist

   'Quelle: www.dbwiki.net oder www.dbwiki.de
 
   If CommandBars("Ribbon").Visible Then
      MsgBox "Das Menüband ist eingeblendet"
   Else
      MsgBox "Das Menüband ist ausgeblendet"
   End If


Lösung: Menüband ausblenden bzw. einblenden

   'Menüband ausblenden
   'Quelle: www.dbwiki.net oder www.dbwiki.de
   DoCmd.ShowToolbar "Ribbon", acToolbarNo
   'Menüband einblenden
   'Quelle: www.dbwiki.net oder www.dbwiki.de
   DoCmd.ShowToolbar "Ribbon", acToolbarYes


Lösung: Statusleiste ausblenden bzw. einblenden

   'Statusleiste ausblenden
   'Quelle: www.dbwiki.net oder www.dbwiki.de
   Call SetOption("Show Status Bar", False)
   'Statusleiste einblenden
   'Quelle: http://www.dbwiki.net/
   Call SetOption("Show Status Bar", True)