Olá pessoal, tem uma duvida de como inserir uma imagem em faceID em menu suspenso. Não estou conseguindo inserir conforme a imagem em anexo em destaque em vermelho.

Segue o código

Sub MenuSuspenso()
    Application.CommandBars("Cell").Reset
    
    Dim cbc As CommandBarControl
    
    'Oculta todos os comandos do botão direito
    For Each cbc In Application.CommandBars("cell").Controls
        cbc.Visible = False
    Next cbc
    
    'Adiciona um comando ao menu suspenso
    With Application.CommandBars("Cell").Controls.Add(temporary:=True)
        .Caption = "Lançamentos"
        .OnAction = "Test1"
        .FaceId = 502
        .BeginGroup = True
    End With
    
    'Adiciona um comando ao menu suspenso
    With Application.CommandBars("Cell").Controls.Add(temporary:=True)
        .Caption = "Resumo"
        .OnAction = "Resumo"
        .FaceId = 141
        .BeginGroup = True
    End With
    
            
       'Submenu com três itens
        Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup).Caption = ("Ferramentas")
        
            With Application.CommandBars("Cell").Controls("Ferramentas")
            
                x = "Calendário"
                .Controls.Add(Type:=msoControlButton).Caption = x
                .Controls(x).OnAction = "Calendario"
                .Controls(x).FaceId = 125
                .Controls(x).BeginGroup = True

                x = "Calculadora"
                .Controls.Add(Type:=msoControlButton).Caption = x
                .Controls(x).OnAction = "Calculadora"
                .Controls(x).FaceId = 50
                .Controls(x).BeginGroup = True
    
                x = "Parâmetros"
                .Controls.Add(Type:=msoControlButton).Caption = x
                .Controls(x).OnAction = "Parametros"
                .Controls(x).FaceId = 487
                .Controls(x).BeginGroup = True
        
            End With
    'Adiciona um comando ao menu suspenso
    With Application.CommandBars("Cell").Controls.Add(temporary:=True)
        .Caption = "Ajuda"
        .OnAction = "Sobre o Controle"
        .FaceId = 49
        .BeginGroup = True
    End With
    
       
    Application.CommandBars("Cell").ShowPopup
End Sub

Sub Calendario()
    frmCalendar.Show
End Sub

Sub Calculadora()
    Shell ("Calc.exe")
End Sub

Sub Resumo()
    Sheets("Resumo").Select
End Sub
Sub Parametros()
    Sheets("Parâmetros").Select
    
End Sub

Desde já agradeço

silva_jmp