Ich versuche mit Hilfe eines Codes des Forums einen Menüpunkt in den Menüpunkt EXTRAS einzufügen. Bekomme aber immer einen Fehler "Objektvariable nicht festgelegt"
bei "Set oPopUp = oBar.FindControl(ID:=3007)"
Könnte mir da ein Verweis fehlen, und wenn welcher?
Danke Peter
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