Gruppe
Menue
Problem
Wie kann ich der Standardmenüleiste ein neues Menü mit Befehlen hinzufügen?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Call CmdDelete
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
oPopUp.Caption = "Projektstatus"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Budget Doppelblatt"
.OnAction = "a_bud_doppelblatt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Budget Einzelblatt"
.OnAction = "a_bud_einzelblatt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Termin Doppelblatt"
.OnAction = "a_doppelblatt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Termin Einzelblatt"
.OnAction = "a_einzelblatt"
.Style = msoButtonCaption
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Datei löschen"
.OnAction = "Datei_platt_machen"
.Style = msoButtonCaption
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CmdDelete
End Sub
StandardModule: basMain
Sub CmdDelete()
On Error GoTo ERRORHANDLER
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Projektstatus").Delete
ERRORHANDLER:
End Sub