Menü erstellen
11.05.2003 17:55:08
Jens
ich brauche mal eure Hilfe.
Bei einer selbst erstellten Menüleiste will ich einen Menüpunkt für Adressen einfügen. Der oberbegriff soll Adressen lauten, dann zwei Untermenüs für Kunden und Lieferanten. Diese sollen wiederum unterteilt werden. Ich habe schon einen Ansatz, aber ich komme nicht weiter mit dem ersten Untermenü für Lieferanten. Wer kann mir helfen?
Sub MenuErstellen()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars.Add( _
Name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Adressen"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kunde &neuanlegen"
.Style = msoButtonIconAndCaption
.FaceId = 607
.OnAction = "NeuKunde"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten &auswählen"
.Style = msoButtonIconAndCaption
.FaceId = 355
.OnAction = "Kundenverwalten"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten speichern"
.Style = msoButtonIconAndCaption
.FaceId = 2654
End With
End Sub
Danke Jens