Gruppe
Menue
Problem
Wie kann ich in XL8 einen Menüpunkt mit einem Häkchen versehen. Die "Checked"-Eigenschaft aus XL5/7 kann ich nicht finden.
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