Menüeinträge umbenennen

30.05.2002

 

Diese Beispiele demonstrieren das Umbenennen vorhandener Menüeinträge:

Const Neue_Bezeichnung = "&Ich wurde umbenannt !"
'Benennt "Extras" um
Sub Menüpunkt_umbenennen()
    On Error Resume Next
    CommandBars("Worksheet Menu Bar"). _
       Controls("E&xtras").Caption = Neue_Bezeichnung
End Sub
'Setzt "Extras" wieder zurück
Sub Menüpunkt_zurücksetzen()
    On Error Resume Next
    CommandBars("Worksheet Menu Bar"). _
       Controls(Neue_Bezeichnung).Caption = "E&xtras"
End Sub

'Benennt "Speichern" im Menü "Datei um
Sub Menüeintrag_umbenennen()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls("Speichern").Caption = Neue_Bezeichnung
End Sub
'Setzt "Speichern" im Menü "Datei" wieder zurück
Sub Menüeintrag_zurücksetzen()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls(Neue_Bezeichnung).Caption = "&Speichern"
End Sub