Symbole untereinander anordnen

Sub Symbolleiste_erstellen()
Set CB = Application.CommandBars.Add(Name:=Symbolleistenname, _
temporary:=True, Position:=msoBarTop)
CB.Visible = True
For i = 1 To 3
Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Caption = "Symbol" & i
.OnAction = "Makro1"
.Style = msoButtonCaption
End With
Next
End Sub