[Resolvido]Wingdings Caracter - Centrar em função de tamanho outro campo

Bom dia,

Mais uma vez venho pedir a vossa ajuda.

Preciso que uma TexBox de um relatório exiba um caractere Wingdings. Mais precisamente o símbolo do telefone..

O código do símbolo no Word é: 40 decimal ou 0028 hex.

Tentei:

Código:

Me.TextBox = Chr(0028)
Me.TextBox = Chr(40)
Me.TextBox = ChrW(0028)
Me.TextBox = ChrW(40)

Mas neste caso aparecem outros símbolos..

Pesquisei então e verifiquei que o código do símbolo seria U+260xE

Mas não estou a ter sucesso.

Alguma dica?

Obrigado

Olá Carlos,

No relatório o tipo de letra está correto?
Já tentou colocar diretamente no relatório? (copiar do word (control+c) e colar (control+v) num rótulo por exemplo?

Abraço

Bom dia ahteixeira,

Obrigado por tentar ajudar...

O (control+c) e (control+v) a partir do word não funcionam...

No caso de alterar o tipo de letra da TextBox para Wingdings, o código "Me.TextBox = Chr(40)" aparece o símbolo correto, no entanto o restante texto fica como símbolos também.

Eu pretendia algo como:

Código:

Me.TextBox = Chr(40) & "Texto simples" & Me.TextBoxTeste 'Etc, etc

Obrigado

Olá, pois é.  

Acho que vai ter que ajustar com dois campos separados (cada qual com o respectivo tipo de letra)

Abraço

Obrigado ahteixeira,

É esse o caminho que já estou a tentar seguir.., mas tem outro pequeno problema que aproveito para lhe perguntar também...

No caso, o texto será para ficar centrado no rodapé do relatório (exigência do modelo a seguir)...

Tem como ajustar as duas TextBox para que o texto fique centrado, tendo em conta que o mesmo texto não é fixo?

Obrigado

Olá Carlos Lopes,

Deu poucos detalhes do que pretende fazer, mas tudo depende onde quer colocar o "icon" do telefone.
Inicio ou meio do texto.

Fiz este exemplo para um colega que faz a "manipulação" na vertical, a ideia poderá ser a mesma para a horizontal.
https://www.maximoaccess.com/t30888-exemplo-termometro-grafico-na-vertical

Não sei se ajuda, mas fica esta sugestão.

Abraço

Obrigado ahteixeira,

Vou dar uma olhada no seu exemplo..

Deixo aqui um exemplo do que pretendo para melhor explicação.

Obrigado

Olá Carlos Lopes,

Com estas linhas de código, foi o melhor que consegui.

Código:


 Me.txt = "Esta é a formatação de texto e o símbolo pretendido"
 Me.txtS = Chr(40) & Space((Len(Me.txt) / 2) + 1)

Segue o meu teste.

Abraço

Obrigado ahteixeira pela ajuda..,

Não ficou 100% prefeito, mas resolve o meu propósito...

O espaço entre o símbolo e o texto altera em função do tamanho de letra, assim como do comprimento do texto...

O tamanho de letra é sempre o mesmo (resolvido).., para a variação do comprimento do texto consegui um equilíbrio aceitável assim:

Código:

Me.txtS = Chr(40) & Space((Len(Me.txt) / 2.4) + 1)

Resta-me agradecer mais uma vez a ajuda.

Obrigado!

Olá Carlos Lopes,

Obrigado, fico feliz por ter resolvido.
Alterei o título do tópico para ficar mais fácil para as pesquisas.

Abraço