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