Symbolleiste mit VBA

Computer: Software & Programmierung Office Software
1

Hallo,
ich habe für eine Excel-Datei eine neue Symbolleiste mit eigenen Symbolen angelegt und eingebunden.
Jetzt möchte ich aber diese Symbolleiste per VBA einbinden. Mit vogegebenen Symbolen funktioniert es.
Wie schaffe ich es, bzw. ist es überhaupt möglich, per VBA eigene Symbole einzubinden?

bedanke mich für jeden Tipp…

Gruß
Jori

2

Hi Jori,

das funktioniert eigentlich ganz einfach.

Dim CB As CommandBar
Dim CBC As CommandBarButton
Dim i%
Set CB = Application.CommandBars.Add( _
Name:=„NewToolbar“, _
temporary:=True, _
Position:=msoBarTop)
CB.Visible = True
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = „Aktualisieren“
.Style = msoButtonCaption
.OnAction = „MSheet.Sheetindex“
End With

Dieser Code fügt eine neue Symbolleiste „NewToolbar“ ein und fügt
einen Button „Aktualisieren“ hinzu.
In der Methode OnAction definierst du das Module, welches beim Klick aufgerufen werden soll.
Das ganze schreibst du am besten in die Sub Workbook_Open.
Dann mußt du nur noch in die Sub Workbook_BeforeClose

Application.CommandBars(„NewToolbar“).Delete

schreiben.

Viel Erfolg.

Ciao Robert

3

Hallo Robert,

herzlichen Dank für den Tipp. Funktioniert prima.
Aber ich meinte eigene Symbole, also nicht die Symbole von Word bzw. Office.
z.B. Symbol 174 in der Farbe gelb, rot, grün usw…

Gibt es auch hierfür eine Lösung?

nochmals danke.
gruß
jori

4

Hi Juri,

konnte bis jetzt noch nix dazu finden.
Muss nochmal in Ruhe schauen, ob das auch mit anderen Symbolen funktioniert.
Eine positive Antwort dazu hast du spätestens am Wochenende.
Wünsche dir noch einen schönen 1. Mai.

Ciao Robert