Const MenueName = "&Mein Menü"
Const Befehl1 = "&1. Machwas"
Const Befehl2 = "&2. Machwas"
Sub Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
Call Menü_Löschen
Set MB = CommandBars.ActiveMenuBar
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = MenueName
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, Id:=1)
With Befehl
.Caption = Befehl2
.OnAction = "Machwas2"
End With
End Sub
Sub Menü_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenueName).Delete
End Sub
Sub Machwas1()
MsgBox "1. Routine", vbExclamation
End Sub
Sub Machwas2()
MsgBox "2. Routine", vbExclamation
End Sub
|