Gruppe
Menue
Problem
Es soll eine neue Menüleiste mit zwei Menüs und Menüschaltfläche angelegt werden.
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