Rotacionar/espelhar texto

Question

recentemente tentei espelhar um texto de uma célula de "cabeça pra baixo" mas não tive êxito. a tentativa foi através de uma adaptação do código abaixo.

obs.: o código abaixo, espelha o texto, da esquerda para a direita. Poderiam me ajudar a obter outras opções: left, right...

Outra coisa, é possível rotacionar somente o caracter em vês de rotacionar o texto todo?

Function inverter(inverte As Variant) As String
Dim txt As String

For i = 0 To Len(inverte) - 1
txt = txt & Mid(CStr(inverte), Len(CStr(inverte)) - i, 1)
Next

inverter = txt

End Function

Vejam os exemplos:

Na célula 1, é como eu gostaria que a célula 2 ficasse. No número 3, eu gostaria de conseguir outros sentidos de rotação.

Grato.

---

[e-mail]

Answer 1

Se eu entedi direito vc quer fazer isso:

Isso nao seria mais simples (usando a formataçao):

att

---

William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------

Sogi Informatique ltée

Answer 2

Perfeito William.

E para a quetão 1, rotacionar somente os caracteres de um determinado texto de uma célula? você teria como me ajudar.

---

[e-mail]

Answer 3

Não há uma forma muito simples de se fazer isso.

Veja o link a seguir: http://text-symbols.com/upside-down/

Você escreve o texto numa caixa de texto, e ele te fornece o texto invertido com caracteres válidos. Não fica perfeito, mas o resultado é muito bom.

Se quiser uma função que faça essa conversão, sugiro você usar a tabela presente na página para criar uma correlação de cada uma das letras e uma função que faça as substituições de cada uma das letras.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br