Kategorie:
(Tipp 41)
Wie fügt man dem Menü Extras der Menüleiste für Tabellenblätter ein Menüelement mit dem Namen "Ton" hinzu und bindet dieses an die Prozedur "Ton"?
Sub MenuelementHinzu() MenuBars(xlWorksheet).Menus("Extras").MenuItems.Add Caption:="To&n", OnAction:="Ton" End Sub Sub Ton() Dim intI As Integer For intI = 1 To 10 Beep Next End Sub