Untermenue von Menueleiste
03.03.2008 10:45:53
Menueleiste
ich bin grad dabei mir eine Menueleiste zu erstellen; ich hab was gefunden, wie man einen Eintrag unter die Menueleiste stellt.
Mein Problem ist, dass ich nicht weiß, wie ich einen zweiten Unterpunkt unter das Menue hängen kann. Es sollte sich ein Drop-down-Menue oeffnen.
Hier mein bisheriger Code, für nur ein drop-down-feld.
Könnt ihr mir sagen, wie ich nun einen zweiten Unterpunkt einfügen kann?
Vielen DAnk schon mal!!!
Sub neuesmenü()
Dim i As Integer
Dim i_hilfe As Integer
Dim Menü As CommandBarControl
Dim mb As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_hilfe = Application.CommandBars(1).Controls(i).Index
Set Menü = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=i_hilfe, _
temporary:=True)
Menü.Caption = "Archiv"
Set mb = Menü.Controls.Add(Type:=msoControlButton)
With mb
.Caption = "Archivierung für einen Jahrgang starten"
.Style = msoButtonIconAndCaption
.FaceId = 266
.OnAction = "zeigen"
.BeginGroup = True
End With
End Sub
Sub zeigen()
Archiv.Show
End Sub
Gruß Jonatan