Command-Bar -> Code von Hans´ FAQ bringt Fehler
18.07.2003 11:17:04
Benjamin
folgender Code aus den Excel-Faq bringt mir leider den folgenden Fehler:
"Laufzeitfehler 5, Unzulässiger Prozeduraufruf oder ungültiges Argument."
Der Fehler tritt an dieser Stelle auf:
Set oBar = Application.CommandBars.Add( _
Name:="NewToolbar", _
temporary:=True, _
Position:=msoBarRight)
Leider sagt mir das nicht so viel.
Hat jemand eine Idee woran das liegen könnte?
Vielen Dank im Vorraus.
LG Benjamin
Private Sub Workook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call DeleteCmdBar
Set oBar = Application.CommandBars.Add( _
Name:="NewToolbar", _
temporary:=True, _
Position:=msoBarRight)
oBar.Visible = True
For iCounter = 1 To 5
Set oBtn = oBar.Controls.Add
With oBtn
.FaceId = 70 + iCounter
.Caption = "&" & iCounter & " Befehl"
.OnAction = "Befehl" & iCounter
End With
Next iCounter
End Sub
Anzeige