Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dem Extra-Menü einen Menüpunkt hinzufügen

Gruppe

Button

Problem

Wie kann ich beim Öffnen der Arbeitsmappe in XL8 dem Extra-Menü einen Menüpunkt hinzufügen und diesen beim Schließen wieder entfernen?

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 CommandBarControl
   Dim oBtn As CommandBarButton
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Set oPopUp = oBar.FindControl(ID:=3007)
   On Error Resume Next
   oPopUp.Controls("Befehl").Delete
   On Error GoTo 0
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Test"
      .OnAction = "Befehl"
      .FaceId = 36
      .Style = msoButtonIconAndCaption
   End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarControl
   Dim oBtn As CommandBarButton
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Set oPopUp = oBar.FindControl(ID:=3007)
   On Error Resume Next
   oPopUp.Controls("Befehl").Delete
   On Error GoTo 0
End Sub

StandardModule: basMain

Sub Befehl()
    MsgBox "Ich bin der Befehl!"
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Button