Neue Menüleiste mit zwei Menüs und Schaltflächen erstellen

Home Zurück Vor

Download der Beispiel-Arbeitsmappe

Gruppe

Menue

Bereich

Bar

Thema

Neue Menüleiste mit zwei Menüs und Schaltflächen erstellen

Problem

Es soll eine neue Menüleiste mit zwei Menüs und Menüschaltfläche angelegt werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub NewMenue()
   Dim oCmdBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oCmdBtn As CommandBarButton
   Dim datDay As Date
   Dim iMonths As Integer
   Call DeleteMenueBar
   Set oCmdBar = Application.CommandBars.Add( _
      "MyCommandBar", msoBarTop, False, True)
   Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
   oPopUp.Caption = "Prüfung"
   For iMonths = 1 To 12
      Set oCmdBtn = oPopUp.Controls.Add
      With oCmdBtn
         .Caption = Format(DateSerial(1, iMonths, 1), "mmmm") & " Druck"
         .OnAction = ""
         .Style = msoButtonCaption
      End With
   Next iMonths
   Set oPopUp = oCmdBar.Controls.Add(msoControlPopup)
   oPopUp.Caption = "Monatsbericht"
   For iMonths = 1 To 12
      Set oCmdBtn = oPopUp.Controls.Add
      With oCmdBtn
         .Caption = Format(DateSerial(1, iMonths, 1), "mmmm") & " Druck"
         .OnAction = ""
         .Style = msoButtonCaption
      End With
   Next iMonths
   oCmdBar.Visible = True
End Sub

Sub DeleteMenueBar()
   On Error Resume Next
   Application.CommandBars("MyCommandBar").Delete
   On Error GoTo 0
End Sub