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
|