Microsoft Excel

Herbers Excel/VBA-Archiv

Sub Submenü

    Betrifft: Sub Submenü von: sigi
    Geschrieben am: 29.08.2003 14:53:22

    Hallo Spezialisten,
    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
    

      


    Betrifft: AW: Sub Submenü von: Michael Scheffler
    Geschrieben am: 29.08.2003 14:59:11

    Hi,

    nach einfach statt:

    Set oBtn = oPopUp.Controls.Add

    Set oPopBot = oPopUp.Controls.Add(msoControlPopup,...

    oder habe ich was falsch verstanden?

    Gruß

    Micha


      


    Betrifft: AW: Sub Submenü von: sergiesam
    Geschrieben am: 29.08.2003 15:01:00

    Hi,

    beim aufzeichnen wurde folgender Code erzeugt:

    Application.CommandBars("Untermenü 68933130").Controls.Add Type:= _
    msoControlPopup, Before:=2

    Versuch das mal...
    Sam


      


    Betrifft: AW: Sub Submenü von: GerdW
    Geschrieben am: 29.08.2003 15:08:59

    Du kannst nicht zwei controls in einer Anweisung erzeugen:

    With oBtn
    .Caption = "01 Baustellenbedaf"
    .OnAction = "Baustellenbedarf"
    End With
    Set oBtn = oPopUp.Controls.Add
    With oBtn
    .Caption = "00 Baustelleneinrichtung"
    .OnAction = "Baustelleneinrichtung"
    .Style = msoButtonCaption
    End With

    Gerd


      


    Betrifft: wie macht man es dann? von: sigi
    Geschrieben am: 29.08.2003 16:12:18

    Wie kann ich so ein Unteruntermenue erzeugen?
    Gruß
    Sigi