Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Menü hinzufügen

Gruppe

PopUp

Problem

Wie kann ich der aktiven Menüleiste ein neues Menü mit einem Menüpunkt hinzufügen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call NewMenu
End Sub

Private Sub CommandButton2_Click()
    Call Zurueck
End Sub

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Zurueck
End Sub

StandardModule: basMain

Sub NewMenu()
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarControl
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Call Zurueck
   Set oPopUp = oBar.Controls.Add( _
      Type:=msoControlPopup, _
      Temporary:=False)
   oPopUp.Caption = "MeinMenü"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Import"
      .TooltipText = "Import"
      .Style = msoButtonCaption
   End With
End Sub

Sub Zurueck()
   On Error Resume Next
   Application.CommandBars( _
      "Worksheet Menu Bar").Controls("MeinMenü").Delete
   On Error GoTo 0
End Sub

    

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