Gruppe
Menue
Bereich
PopUp
Thema
Arbeitsblattmenüleiste neues Menü mit Befehlen hinzufügen
Problem
Wie kann ich der Standardmenüleiste ein neues Menü mit Befehlen hinzufügen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
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