Arbeitsblattmenüleiste neues Menü mit Befehlen hinzufügen

Home Zurück Vor

Download der Beispiel-Arbeitsmappe

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