(Tipp 43)
Wie versieht man das Menüelement mit dem Namen "Ton" aus dem Menü Extras der Menüleiste für Tabellenblätter mit einem Häkchen?
Wird Checked auf False gesetzt verschwindet das Häckchen.
Sub MenuelementHaekchen() MenuBars(xlWorksheet).Menus("Extras").MenuItems("Ton").Checked = True End Sub Sub MenuelementKeinHaekchen() MenuBars(xlWorksheet).Menus("Extras").MenuItems("Ton").Checked = False End Sub