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