Navigation

[d'r Bastler]

Indem Du mit der rechten Hand die Maus festhältst und mit der linken Hand Strg+f drückst ...

Man kann Befehle mit etwas Aufwand per Normal.dotm in das Rechtsklick/Kontextmenü einbauen. Dort ein neues Modul mit diesem Code  (Strg+c, Strg+v)

Code:

Sub NavigationKontextmenü()
    Dim cb As CommandBar
    Dim ctl As CommandBarControl
   
    ' Standard-Kontextmenü für Text abrufen
    Set cb = CommandBars("Text")
   
    ' Prüfen, ob der Menüpunkt bereits existiert
    On Error Resume Next
    Set ctl = cb.Controls("Navigation umschalten")
    On Error GoTo 0
   
    If ctl Is Nothing Then
        ' Falls nicht vorhanden, neuen Menüpunkt hinzufügen
        Set ctl = cb.Controls.Add(msoControlButton)
        ctl.Caption = "Navigation umschalten"
        ctl.OnAction = "NavigationUmschalten"
    End If
End Sub

Sub NavigationUmschalten()
    ' Beispiel: Navigationsbereich ein-/ausschalten
    Application.CommandBars("Navigation").Visible = Not Application.CommandBars("Navigation").Visible
End Sub

Da mir mir der Aufwand allerdings zu hoch ist und mein linker kleiner Finger + Zeigefinger Strg+f bequem erreichen, lasse ich das.

Grüße