Sybolleiste,Code aus Archiv



Excel-Version: 97
nach unten

Betrifft: Sybolleiste,Code aus Archiv
von: Michael
Geschrieben am: 06.05.2002 - 11:56:40

Hallo zusammen,

ich habe folgenden Code aus dem Archiv.

Sub leiste()
On Error Resume Next
Dim CB As CommandBar
Dim CBC As CommandBarButton

Dim i%
Set CB = Application.CommandBars.Add( _
Name:="Neue Leiste", _
temporary:=True, _
Position:=msoBarTop)
CB.Visible = True
For i = 1 To 5
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 70 + i
.Caption = "&" & i & "Befehl"
.OnAction = "Befehl" & i
.Visible = True
End With
Next i

Alles klappt gut, nur auf den neuen Commanbuttons erscheinen die Texte "Befehl1", "Befehl2" etc nicht.

Hängt das irgendwie mit den FaceID zusammen?

Auf den neuen Buttons sollen nur die Texte, ohne Icons stehen.


Kann mir vielleicht jemand einen Tipp geben?


Vielen Dank im voraus,

Michael

nach oben   nach unten

Re: Sybolleiste,Code aus Archiv
von: guenter
Geschrieben am: 06.05.2002 - 11:58:04

hm..gehe mal in den downloadbereich hans hat ein menueeditor der
fast alles von alleine macht

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Sybolleiste,Code aus Archiv"