Ir para conteúdo
Fórum Script Brasil
  • 0

Inserindo um textbox em uma planilha como editor de texto.


pablomoreiragv

Pergunta

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 por quintelab
Removido Urgente da descrição
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
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..

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...