HERBERS Excel-Forum - die Beispiele

Thema: Format-Menü löschen und ShortCut umbenennen

Home

Gruppe

Menue

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

ContentControl (WORD) in Excel Zelle schreiben Excel Form Kontextmenue geht nicht
Controls der Menüleiste ansprechen Zellen Kontextmenue ausfuehren
Dynamisches Kontextmenue Fehlermeldung in Schleife mit Controls
Makro für Pulldown Menue TabControl Programmieren
Userform alle Controls auf inaktivität prüfen Werte in Control einlesen
Menueeintrag einbinden ControlTipText und das &-Zeichen
Control Toolbox - Combo Box Controltiptext bei enabled = False
Controlsource greift auf falsche Arbeitsmappe zu Daten in eine msoControlDropdown einlesen
makro in kontextabhängiges Befehlsmenue Menue mit eigenen Macros versehen
OCX-Controls in Excel 97 verwenden change-ereignis bei dynamischen Controls / Teil 2
change-ereignis bei dynamisch erstellten Controls Entfernen eines Eintrages im Kontextmenue
Untermenue von Menueleiste Adresszeile/Formelzeile im Menue ist weg
Controls("Checkbox" & i).Value = True FaceId bei Untermenue möglich?
Menue Leiste ein ausblenden Menue nur erstellen, wenn noch nicht vorhadnen
CommandBarControl produziert Fehlermeldung Calendar Control 11.0
ControlSource Menuebar ausblenden
Controltiptext mehrzeilig 2003 Menuepunkte in 2007 finden
Zugriff msoControlDropdown in eigener Symbolleiste Kontexmenue
mehrere Controls per Schleife ansprechen Controltiptext
Controltiptext Controltiptext
Type:=msoControlButton, ID:=850) .FindControl(ID:=300011).Enabled = FALSE
Filter als Dropdown-Menue in neuem Tabellenblatt Controls nicht definiert
Menue Monthview-Controll Objekt Ansicht "fixieren"
Eigenes Formatierungsmenue ControlSource aus Aktiven TextBox auslesen
Funktion für mehrere Controls Auf Userform Controls zur Laufzeit erstellen?