Sub Submenü
29.08.2003 14:53:22
sigi
ich möchte dem Arbeitsblatt eine Menueleiste beim öffnen hinzufügen.
Aus Hauptpunkt erscheint "Ausführung"
Nun soll als Submenue "00 Baustelleneinrichtung"
Und als weiteres Submenue von 00 Baustelleneinrichtung ein Pfeil erscheinen
indem dann Baustellenbedarf erscheint.
Leider komme ich nicht hinter diese Lösung
Für Eure Hilfe bedankend
Gruß
Sigi
Option Explicit
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call CmdAusführung
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
oPopUp.Caption = "Ausführung"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "00 Baustelleneinrichtung"
.Caption = "01 Baustellenbedaf"
.OnAction = "Baustelleneinrichtung"
.OnAction = "Baustellenbedarf"
.Style = msoButtonCaption
End With
End Sub