Symbolleiste mit Titel
17.04.2009 00:45:05
robert
ich habe heute schon mal ein ähnliches posting gemacht, aber ich habe hier nun einen Beispielcode und meine Frage wäre diesmal eine etwas andere.
Ich habe ein zusätzliche Symbolleiste gemacht mit Icons die entsprechende Makros aufrufen. Folgenden Code habe ich verwendet:
[code]
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 = 59
.Caption = "Symbol 1"
.OnAction = "Makro1"
End With
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 66
.Caption = "Symbol 2"
.OnAction = "Makro2"
End With
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.FaceId = 67
.Caption = "Symbol 3"
.OnAction = "Makro3"
End With
End Sub
[/code]
Damit sehe ich aber nur das Symbol in der Symbolleiste. Ist es auch möglich einen Titel neben dem Icon in der Symbolleiste hinzuzufügen?
viele grüsse
robi
Anzeige