Gruppe
Menue
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?
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