Hallo an Alle,
ich habe nachfolgendes Menue, bei dem es gehen sollte zu dem Eintrag ein Icon darzustellen. Ich habe aber leider keine Ahnung wie....
Weiß jemand Rat ?
mit Dank
WalterH
' Button Hauptmenue Formatierung
Set cbb2 = cbb1.Controls.Add(Type:=msoControlPopup)
cbb2.BeginGroup = True
cbb2.Caption = "Formatierungen"
Set cbb = cbb2.CommandBar
'Button Untermenue Formatierungen Erläuterungen
Set cbb2 = cbb.Controls.Add(Type:=msoControlButton)
cbb2.Style = msoButtonCaption
cbb2.BeginGroup = False
cbb2.Caption = "Erläuterungen"
cbb2.OnAction = "Erl_Formatierungen"