Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Menüband testen

25 views
Skip to first unread message

Jean-Pierre Blanc

unread,
Sep 4, 2016, 10:50:50 AM9/4/16
to
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


Carlos Naplos

unread,
Sep 4, 2016, 1:35:10 PM9/4/16
to
Hallo Jean-Pierre

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

Gruß
CN

Jean-Pierre Blanc

unread,
Sep 4, 2016, 1:46:28 PM9/4/16
to
Hallo Carlos

Vielen Dank für deine prompte Antwort.

Gruss
Jean-Pierre

Ulrich Möller

unread,
Sep 4, 2016, 2:27:14 PM9/4/16
to
Am 04.09.2016 um 16:50 schrieb Jean-Pierre Blanc:
> 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

Mit
Application.ExecuteExcel4Macro ("Get.Toolbar(7,""Ribbon"")")
Status abfragen

Ulrich

0 new messages