Kleines Problem. Ich füge per VBA eine Symb.leiste ein und bestücke diese mit drei Symbolen:
Sub Symbolleiste_Menü1_erzeugen()
Dim SB As CommandBar
Dim Icon1 As CommandBarControl
Dim Icon2 As CommandBarControl
Dim Icon3 As CommandBarControl
On Error Resume Next
Set SB = CommandBars.Add("Menü1")
With SB
.Visible = True
.Top = 25
.Left = 10
End With
Set Icon1 = SB.Controls.Add(msoControlButton)
With Icon1
.FaceId = 284
.Caption = "Name"
.TooltipText = "Diagramm1 erstellen"
.OnAction = "Mak001"
End With
usw.
Wie kriege ich das ganze dazu, daß immer das Symbol und der Name angezeigt werden?
Danke im Vorraus und nen schönen Feiertag