Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Menue-Punkt mit Haekchen versehen

Gruppe

Button

Problem

Wie kann ich in XL8 einen Menüpunkt mit einem Häkchen versehen. Die "Checked"-Eigenschaft aus XL5/7 kann ich nicht finden.

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

ClassModule: DieseArbeitsmappe

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

StandardModule: basMain

Sub MenuPunkt()
   Dim oBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarButton
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   Call Zurueck
   Set oPopUp = oBar.Controls.Add( _
      Type:=msoControlPopup, Temporary:=False)
   oPopUp.Caption = "Demo"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Import"
      .TooltipText = "Import"
      .OnAction = "Import"
      .Style = msoButtonCaption
      .State = msoButtonDown
   End With
End Sub

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

Sub Import()
    MsgBox "Import"
End Sub

    

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