[Resolvido] Atribuir um "FaceId " a um Menu de Atalho

Caríssimos,

Conseguem-me ajudar na colocação de um "FaceID" num Menu de Atalho que é construído assim:

No Módulo Geral

Código:

Public Function fncAddSubMenu(menu As CommandBar, Caption As String) As CommandBarPopup
  Dim cbp As CommandBarPopup
  Set cbp = menu.Controls.Add(msoControlPopup)
  cbp.Caption = Caption
  Set fncAddSubMenu = cbp
End Function

Na Sub

Código:

'Criar sub menu de Atalho
Set cbp = fncAddSubMenu(cb, "&Zoom")(a, True)

A ideia é por exemplo o Menu "Zoom" não ficar sem simbolo como esta imagem:


Cabe-me informar que a imagem e o código são da autoria de "https://www.usandoaccess.com.br/"
O meu obrigado pela vossa atenção

Bruno Gordino

Olá Sr. Avelino,

A minha questão não se prende com os botões mas sim com a criação do Menu que dá acesso aos botões:

Código:

Set cbp = fncAddSubMenu(cb, "&Zoom")

Obrigado pela sua disponibilidade

Bruno Gordino

Bruno, somente botões podem receber FaceIDs.

Bom dia a todos,

Caríssimo Damasceno, muito obrigado pela sua disponibilidade, mais uma vez.

Abraço

Bruno Gordino