Neues Menü mit Menüeinträgen erstellen

05.08.2001

 

Dieses Beispiel erstellt einen neuen Menüeintrag
mit 2 Untereinträgen, aus denen entsprechende Routinen gestartet
werden können:

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