ich möchte wie bei den Icons für die Schriftgröße oder die Schrift eigene Auswahllisten in einer eigenen Symbolleiste mit eigenen Inhalten anbieten. Wisst ihr einen Rat?
Gruß
Mike René
Sub tt()
Dim cBar As CommandBar, cbarCtl As CommandBarControl, i As Integer
On Error Resume Next
Application.CommandBars("myComboBar").Delete
On Error GoTo 0
Set cBar = Application.CommandBars.Add("myComboBar", , , True)
Set cbarCtl = cBar.Controls.Add(msoControlComboBox)
With cbarCtl
For i = 65 To 91
.AddItem Chr(i)
Next
End With
cBar.Visible = True
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe