Inserindo um textbox em uma planilha como editor de texto.

[pablomoreiragv]

Como faço para inserir um textbox em uma planilha, e deixá-lo como um editor de texto comum, ou seja, quero que ele tenha as funções que possibilite o usuário formatar o texto, com as funções negrito, itálico, sublinhado, centralizado, alinhar a esquerda e a direita, justificar, mudar a cor do texto e etc, enfim, que ficasse îgual a tela que a gente inseri tópicos neste fórum, pois quando o usuario está digitando um texto dentro do textbox, toda a barra de formatação fica inativa. Resumindo, queria que ficar um verdadeiro editor de texto personalizado, só que não sei como programar isso, já olhei na net e nada consegui. Caso alguém possa me ajudar, pode me mandar no meu email támbém, pablo.scobar@hotmail.com? Um abraço!!!! Fui!!!

Editado Junho 22, 2010 por quintelab
Removido Urgente da descrição

[kuroi]

você pode usar um richtextbox, mas toda a programacao da formatacao é você mesmo q tera q fazer.

[pablomoreiragv]

você pode usar um richtextbox, mas toda a programacao da formatacao é você mesmo q tera q fazer.

Eu não conheço esta ferramenta, estou engatinhando ainda no VBA, tem como você me dar um help, ou seja, me dizer como faço para inserir e programar esta ferramenta. Jâ procurei tanto e nada encontrei, estou dando orelhada demais. Encontrei este codigo abaixo no AJUDA no VBA, não sei se eu estou fazendo errado alguma coisa mais não deu certo também.

Exemplo do objeto Font e das propriedades Bold, Italic, Size, StrikeThrough, Underline e Weight

O exemplo a seguir demonstra um objeto Font e as propriedades Bold, Italic, Size, StrikeThrough, Underline

e Weight relacionadas a fontes. Você pode manipular as propriedades de fonte de um objeto diretamente ou

utilizando um alias, conforme mostra, também, este exemplo.

Para utilizar este exemplo, copie esse código de exemplo na parte de Declarações de um formulário. Certifique-se

de que o formulário contenha:

Um Label denominado Label1.

Quatro controles ToggleButton denominados ToggleButton1, ToggleButton2, ToggleButton3 e ToggleButton4.

Um segundo Label e um TextBox denominados Label2 e TextBox1, respectivamente.

Dim MyFont As StdFont

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

MyFont.Bold = True

'Using MyFont alias to control font

ToggleButton1.Caption = "Bold On"

MyFont.Size = 22

'Increase the font size

Else

MyFont.Bold = False

ToggleButton1.Caption = "Bold Off"

MyFont.Size = 8

'Return font size to initial size

End If

TextBox1.Text = Str(MyFont.Weight)

'Bold and Weight are related

End Sub

Private Sub ToggleButton2_Click()

If ToggleButton2.Value = True Then

Label1.Font.Italic = True

'Using Label1.Font directly

ToggleButton2.Caption = "Italic On"

Else

Label1.Font.Italic = False

ToggleButton2.Caption = "Italic Off"

End If

End Sub

Private Sub ToggleButton3_Click()

If ToggleButton3.Value = True Then

Label1.Font.Strikethrough = True

'Using Label1.Font directly

ToggleButton3.Caption = "StrikeThrough On"

Else

Label1.Font.Strikethrough = False

ToggleButton3.Caption = "StrikeThrough Off"

End If

End Sub

Private Sub ToggleButton4_Click()

If ToggleButton4.Value = True Then

MyFont.Underline = True

'Using MyFont alias for Label1.Font

ToggleButton4.Caption = "Underline On"

Else

Label1.Font.Underline = False

ToggleButton4.Caption = "Underline Off"

End If

End Sub

Private Sub UserForm_Initialize()

Set MyFont = Label1.Font

ToggleButton1.Value = True

ToggleButton1.Caption = "Bold On"

Label1.AutoSize = True 'Set size of Label1

Label1.AutoSize = False

ToggleButton2.Value = False

ToggleButton2.Caption = "Italic Off"

ToggleButton3.Value = False

ToggleButton3.Caption = "StrikeThrough Off"

ToggleButton4.Value = False

ToggleButton4.Caption = "Underline Off"

Label2.Caption = "Font Weight"

TextBox1.Text = Str(Label1.Font.Weight)

TextBox1.Enabled = False

End Sub

Se mais alguêm se habilitar em tentar me ajudar por favor socorra-me..rs..rs..rs..