Office: Menueleiste mit untermenüs erstellen (VBA)

Hi,

mal wieder eine Fragestellung von mir.

Ich möchte mir beim Start von Excel eine Menüleiste erstellen lassen die auf einer eigenen Symbolleiste ist. Darauf soll sich der Eintrag "Jahr" befinden.
In "Jahr" befindet sich eine Liste (2008, 2009,...) die alle Untermenüs haben sollen.

Ich habe die Symbolleiste erstellt, auch die Einträge, schaffe es aber nicht das die Monate als Untermenü von den Jahren dargestellt werden.

Eine andere Frage betrifft die Platzierung der Symbolleiste. Da die Symbolleiste immer neu erzeugt wird, möchte ich sie gerne nicht in eine neue Zeile sondern ans Ende der zweiten Zeile hängen. Geht das irgendwie?

Anbei mein Beispiel

Thx,
knacko

:)

 

Hallo Knacko,

keine Ahnung, ob Du das SO meintest, aber teste doch mal diesen Code :

VBA-Code:

Public Sub UserMenu2()    Dim oCmdBar As CommandBar    Dim bPopUp As CommandBarPopup 'B = BAR = Symbolleiste    Dim jPopUp As CommandBarPopup 'J = JAHR = Unterpunkt JAHR    Dim mPopUp As CommandBarPopup 'M = MONAT = Unterpunkt MONAT    Dim mCmdBtn As CommandBarButton    Dim datDay As Date    Dim iMonths As Integer    Dim iYears As Integer    cmdName = "Eigene Makros"    Call DeleteNewMenueBar    Set oCmdBar = Application.CommandBars.Add( _       cmdName, _       Position:=msoBarTop, _       MenuBar:=False, _       temporary:=True)       oCmdBar.Visible = True    Set bPopUp = oCmdBar.Controls.Add(msoControlPopup)    bPopUp.Caption = "Jahr"    For iYears = 2008 To 2018       Set jPopUp = bPopUp.Controls.Add(msoControlPopup)       With jPopUp          .Caption = Format(DateSerial(iYears, 1, 1), "yyyy")          .OnAction = ""                 '---- Test-Popup : ----------------                 Set mPopUp = jPopUp.Controls.Add(Type:=msoControlPopup)                 mPopUp.Caption = "Hier ist nix drin"                 '---- Ende Test-Popup : -----------                 Set mPopUp = jPopUp.Controls.Add(Type:=msoControlPopup)                 mPopUp.Caption = "Monat"                 For iMonths = 1 To 4                    Set mCmdBtn = mPopUp.Controls.Add                    With mCmdBtn                       .Caption = Format(DateSerial(1, iMonths, 1), "mmmm") & " Druck"                       .OnAction = ""                       .Style = msoButtonIconAndCaption                    End With                 Next iMonths       End With    Next iYears    'Application.CommandBars("Worksheet Menu Bar").Enabled = False    oCmdBar.Visible = True End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Hier werden die Untermenüpunkte zu den Jahreszahlen INNERHALB der gleichen Schleife erstellt. Dazu ist es notwendig, eine weitere Objektvariable zu definieren - ich habe diese nun bPopUp, jPopUp und mPopUp getauft *wink.gif*
Das "Test-PoPup" habe ich nur testweise erstellt, diesen Part kannst Du auch wieder aus dem Code heraus löschen.

 

Moin, knacko,

versuche es mal mit den folgenden Links:
Symbolleiste mit ComboBox erstellen
Symbolleisten nebeneinander VBA Code.

 

Hi,

genau so habe ich das gemeint. Danke dir.

Mit dem Zusatz
oCmdBar.RowIndex = 3
oCmdBar.Left = 1300
positioniere ich die Leiste nun auch richtig.

mfg
knacko