Menüleiste - Fehler bei controls.Add
04.10.2003 12:57:42
Christoph
ich habe aus dem Archiv das folgende Beispiel: https://www.herber.de/mailing/088399h.htm übernommen, bekomme aber die folgende Fehlermeldung in der Zeile: (vollständiger Code siehe unten)
Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
Laufzeitfehler '-2147467259 (80004005)':
Die Methode 'Add' für das Objekt 'CommandBarControls' ist fehlgeschlagen
Es liegt nicht an dem Code von Hans. Der selbe Fehler tritt immer auf bei dem Befehl ...Controls.Add(msoControlPopup, before:=oBar.Controls.Count). Auch mit anderen Beispieldateien aus dem Archiv.
Ich habe schon probiert, die Menüleiste zurückzusetzen. Unter Extras-Anpassen-Arbeitsblatt-Menüleiste ist der Button "zurücksetzen" aber deaktiviert.
Ebenso habe ich die "Excel.xlb" mal neu erstellen lassen.
Hier der Code:
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Call CmdDelete
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
oPopUp.Caption = "Projektstatus"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Budget Doppelblatt"
.OnAction = "a_bud_doppelblatt"
.Style = msoButtonCaption
End With
'...weitere PopUp's...
End Sub
Ich weiß echt nicht mehr weiter.
Kann mir jemand einen Tip(p) geben?
schon vielen Dank vorab
Gruß
Christoph