Eigene Symbolleiste mit Symbol und Text?!

Computer: Software & Programmierung Office Software
1

Hallo,

in einem Sheet habe ich eine eigene Menüleiste erstellt. Diese wird auch geladen und die Makros funktionieren. Leider werden mir nur die Symbole angezeigt.

Ist es möglich und wenn ja wie, Symbole und Text dort anzeigen zu lassen?

Hier der Code:

_Const Symbolleistenname = "B&L Leiste"
Sub Symbolleiste_erstellen()
Set CB = Application.CommandBars.Add(Name:=Symbolleistenname,
temporary:=True, Position:=msoBarTop)
CB.Visible = True
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 2810
.Caption = „Daten sortieren“
.OnAction = „Daten_sortiern“
End With
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 355
.Caption = „Zeilen einfügen und Formeln kopieren“
.OnAction = „Zeile_einfügen_Formeln_kopieren“
End With
End Sub

Danke & Gruß, olli

2

Hallo Olli,

in Excel (nicht Visual Basic):

Extras --> Anpassen

Rechtsclick auf das zu bearbeitende Symbol;

dann gibt es die Auswahl

Standard
Nur Text (immer)
Nur Text (in Menus)
Schaltflächensymbol und Text

das letzte auswählen, abspeichern, fertig.

So lassen sich auch alle anderen (voreingestellten) Menus verändern.

Ich hoffe es hilft.
gerhard

3

Hi G.,

nee, hilft mir leider nicht, da es um eine eigene Leiste geht und diese Einstellungen zwar erst übernommen werden, aber nicht gespeichert sind. D.h., dass nach einem Neustart der Tabelle alles wieder weg ist.

Gruß, o

4

Stimmt, ich hab zwar beim Test das Tabellenblatt geschlossen, aber nicht Excel, vielleicht hat es deshalb funktioniert.

gerhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]