Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sybolleiste,Code aus Archiv

Sybolleiste,Code aus Archiv
06.05.2002 11:56:40
Michael
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sybolleiste,Code aus Archiv
06.05.2002 11:58:04
guenter
hm..gehe mal in den downloadbereich hans hat ein menueeditor der
fast alles von alleine macht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige