Menüband testen

04/09/2016 - 16:50 von Jean-Pierre Blanc | Report spam
Hallo

Mit die folgenden zwei Befehle kann ich das Menüband verstecken und wieder anzeigen.
Jetzt wollte ich den Zustand des Menübandes mit dem dritten Befehl erfahren.

Private Sub HideRibbon()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
End Sub

Private Sub ShowRibbon()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
End Sub

Menüband testen ()
If "Show.Tollbar(""Ribbon"", False)" Then GoTo zeigen:

Das geht nicht: Laufzeitfehler '13': Typen unvertràglich

Kann mich jemand helfen.
Zum Voraus besten Dank.

Gruss Jean-Pierre
 

Lesen sie die antworten

#1 Carlos Naplos
04/09/2016 - 19:35 | Warnen spam
Hallo Jean-Pierre

If Application.CommandBars("Ribbon").Visible Then

Gruß
CN

Am 04.09.2016 um 16:50 schrieb Jean-Pierre Blanc:
Hallo

Mit die folgenden zwei Befehle kann ich das Menüband verstecken und
wieder anzeigen.
Jetzt wollte ich den Zustand des Menübandes mit dem dritten Befehl
erfahren.

Private Sub HideRibbon()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
End Sub

Private Sub ShowRibbon()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
End Sub

Menüband testen ()
If "Show.Tollbar(""Ribbon"", False)" Then GoTo zeigen:

Das geht nicht: Laufzeitfehler '13': Typen unvertràglich

Kann mich jemand helfen.
Zum Voraus besten Dank.

Gruss Jean-Pierre


Ähnliche fragen