Alterar tipo de fonte

[Guest --Rodrigo --]

Olá pessoal^^

Gostaria de saber como faço para alterar o tamanho na fonte em tempo de execução, no meu caso eu quero que caso uma sigla tenha 2 letras seja de tamanho 10 e caso tenha 3 de tamanho 8.

Obrigado^^

[Guest Rafael Batista]

Olá pessoal^^

Gostaria de saber como faço para alterar o tamanho na fonte em tempo de execução, no meu caso eu quero que caso uma sigla tenha 2 letras seja de tamanho 10 e caso tenha 3 de tamanho 8.

Obrigado^^

Bom, primeiro você precisa definir o que você está alterando, o exemplo que vou dar é para alterar dentro de uma célula.

Cole o código em um módulo e execute.

Ai vai da sua necessidade, se precisar fazer isso num intervalo maior use um loop, passando por cada célula.

espero ter ajudado...

******************************************************************************

Sub AlteraFonte()

Dim numero

'Digite o que você quer testar na célula B1

numero = Worksheets("plan1").Range("B1").Characters.Count

If numero = 2 Then

Worksheets("plan1").Range("B1").Font.Size = 10

ElseIf numero = 3 Then

Worksheets("plan1").Range("B1").Font.Size = 8

Else

Worksheets("plan1").Range("B1").Font.Size = 12

End If

End Sub