Grafik als Icon im Menü via VBA

Sub MenüErstellung()
Dim cb As CommandBar, cbb As CommandBarControl
On Error Resume Next
CommandBars("Lagebild").Delete
On Error GoTo 0
'Commandbar erstellen
Set cb = CommandBars.Add("Lagebild")
'Menü erzeugen
Set cbb = cb.Controls.Add(msoControlPopup)
With cbb
.Caption = "taktische Zeichen für Lagebild"
.Tag = "Pop1"
.BeginGroup = True
End With
'Menüzeilen erstellen
With CommandBars.FindControl(Tag:="Pop1")
'erste Menüzeile erzeugen
Set cbb = .Controls.Add(Before:=1, Type:=msoControlButton)
With cbb
.Caption = Sheets("Tabelle2").Range("a1")
.OnAction = "Rettung"
.FaceId = 444
.BeginGroup = True
End With
'zweite Menüzeile erzeugen
Set cbb = .Controls.Add(Before:=2, Type:=msoControlButton)
With cbb
.Caption = Sheets("Tabelle2").Range("a2")
.OnAction = "Test1"
.FaceId = 445
End With
.Visible = True
.Position = msoBarTop
.Protection = 0 '9
End With
End Sub