Gerne möchte ich wissen, ob ich zwischen Schaltflächen in einer Symbolliste "feste Texte" ohne Funktion eintragen kann.
Ich habe untenstehend den Auszug meines Makros eingefügt und möchte gerne zwischen der Schaltfläche Case 1 und Case 2 einen "Festtext" einfügen - so ähnlich wie die Gruppentrennung - geht das?
For I = 1 To 15
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 50 ' Breite der Schalter
' .Style = msoButtonCaption ' Text auf Schaltfläche ohne Icon
.Style = msoButtonIconAndCaption ' Text und Icon
' Text Waagerecht für Links und Rechts
' .Style = msoButtonWrapCaption
Select Case I
Case 1
.FaceId = 67 ' Icon vor Beschriftung
.Caption = "IRB"
.OnAction = "Roboter"
.TooltipText = "Roboter einfügen"
Case 2
.Caption = "Ent."
.OnAction = "Entlader"
.TooltipText = "Entlader einfügen"
Case 3
.Caption = "LPM"
.OnAction = "LPM"
.TooltipText = "LPM einfügen"
Case 4
Im weiteren wüsste ich gerne, wie ich verschiedene Farben, Schriftarten, etc. für die Symbolleiste definieren kann. Kann ich auch zweizeilig in der Symbolleiste schreiben?
Recht herzlichen Dank für Eure Unterstützung.
Bis später
Jürg