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
|