VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Format-Menü löschen und ShortCut umbenennen

Gruppe

Menue

Bereich

Control

Thema

Format-Menü löschen und ShortCut umbenennen

Problem

In der Arbeitsblatt-Menüleiste soll das Format-Menü gelöscht und der ShortCut für das Daten-Menü auf t gesetzt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub EditCmdBar()
   On Error GoTo ERRORHANDLER
   With Application.CommandBars("Worksheet Menu Bar")
      .Controls("Daten").Caption = "Da&ten"
      .Controls("Format").Delete
   End With
   Exit Sub
ERRORHANDLER:
   MsgBox "Ein Element wurde nicht gefunden!"
End Sub

Sub Zurueck()
   Application.CommandBars("Worksheet Menu Bar").Reset
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Menue und Control