Substituir FaceID por ícone

Amigos, é possível substituir um FaceID por um Ícone?

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Adicionar Registro"
.OnAction = "Novo"
.FaceId = 478
End With

Cumprimentos.

Novidades por aqui?

Cumprimentos.

Novidades?

Cumprimentos.

Já testou assim ?

Dim x
x = "C:\xpto.bmp"
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)

With mnu
.Caption = "Adicionar Registro"
.Picture = x
.OnAction = "Novo"
End With

O objeto até aprensenta a propriedade .Picture...

Mas dá menssagem de erro:
424 - O Objeto é obrigatório

    Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
    With mnu
    Dim x
        x = CurrentProject.Path & "\edit.bmp"
        .Caption = "Excluir Registro"
        .OnAction = "Excluir"
        .Picture = x
    End With
<\pre>

Cumprimentos.

Quer um botão personalisado ou ativar um botão do Access ?

O menu já está funcionando porém com FaceID, nativo do access

Gostaria de saber se no lugar do FaceID poderia coloca outra imagem, ou seka personalizar a imagem....


Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Adicionar Registro"
.OnAction = "Novo"
.FaceId = 478
End With

Cumprimentos.

Novidades por aqui?

Cumprimentos.