CommandBar
18.05.2006 09:05:51
OttoH
ich möchte gerne eine CommandBAr mit eiem Knopf anlegen.
Private Sub Workbook_Open()
Dim leiste As CommandBar
Dim Knopp As CommandBarButton
Set leiste = CommandBars.Add(Name:="Mail", Position:=msoBarTop, Temporary:=True)
leiste.Visible = True
Set Knopp = leiste.Controls.Add(Type:=msoControlButton, Id:=1)
With Knopp
.Caption = "Mailen"
.OnAction = "Mailsenden"
.FaceId = 363
End With
End Sub
Die Zeile Set Leiste ... liefert den Fehler: "Laufzeitfehler 91, Objektvariable oder With-Blockvariable nicht festgelegt."
Ich vermute, dass irgendeine Bibliothek nicht mit im Rennen ist; aber welche?
Für Tips wäre ich dankbar.
Gruß OttoH
Anzeige