MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Atribuir um "FaceId " a um Menu de Atalho

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 272
    Registrado : 24/02/2013

    Atribuir um "FaceId " a um Menu de Atalho Empty Atribuir um "FaceId " a um Menu de Atalho

    Mensagem  brunogor 10/1/2023, 14:58

    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:
    Atribuir um "FaceId " a um Menu de Atalho 12345

    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


    Última edição por brunogor em 11/1/2023, 11:01, editado 2 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3821
    Registrado : 04/04/2010

    Atribuir um "FaceId " a um Menu de Atalho Empty Re: Atribuir um "FaceId " a um Menu de Atalho

    Mensagem  Avelino Sampaio 10/1/2023, 19:03

    Bruno

    Você pode pegar emprestado qualquer imagem dos botões do Access. Por exemplo, um coração(481) para zoom de 25%.

    ...
    Call fncAddBotaoS(cbp, 481, "&25", "=fncZoom(25)")
    ...

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 272
    Registrado : 24/02/2013

    Atribuir um "FaceId " a um Menu de Atalho Empty Re: Atribuir um "FaceId " a um Menu de Atalho

    Mensagem  brunogor 11/1/2023, 08:58

    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

      Data/hora atual: 26/1/2023, 22:17