AW: Eigendefinierte MenueLeiste
07.10.2004 17:56:43
Harry
Hallo Wolfgang,
...versuch es mal mit folgenden Beispielcode:
Sub Menüleiste_hinzufügen()
MenuBars(xlWorksheet).Menus.Add Caption:="Mein &Menü"
Application.MenuBars(xlWorksheet).Menus("Mein &Menü").MenuItems.Add ("Menü &1"), _
OnAction:="Menü1_ausführen"
Application.MenuBars(xlWorksheet).Menus("Mein &Menü").MenuItems.Add ("Menü &2"), _
OnAction:="Menü2_ausführen"
Application.MenuBars(xlWorksheet).Menus("Mein &Menü").MenuItems.Add ("-")
Application.MenuBars(xlWorksheet).Menus("Mein &Menü").MenuItems.Add ("Menü &3"), _
OnAction:="Menü3_Frage"
End Sub
Sub Menü1_ausführen()
MsgBox "Das 1. Menü wurde ausgeführt.", vbInformation, "Menü 1"
End Sub
Sub Menü2_ausführen()
MsgBox "Das 2. Menü wurde ausgeführt.", vbInformation, "Menü 2"
End Sub
Sub Menü3_Frage()
Dim aw1
aw1 = MsgBox("Hat's funktioniert ?", vbYesNo, "Menü 3")
If aw1 = vbYes Then
MsgBox "Das ist gut.", vbInformation
Else
MsgBox "Schade! Wär schön gewesen...", vbInformation
End If
End Sub
Das müsste eigentlich funktionieren.
Dieses Zusatzmenü lässt sich wieder entfernen mit folgendem Code:
Sub Menü_entfernen()
MenuBars(xlWorksheet).Menus("Mein &Menü").Delete
End Sub
Viel Spass!
Gruss Harry