Notifications
Clear all

Exibir Texto (longo) de Célula dinamicamente

4 Posts
2 Usuários
0 Reactions
1,039 Visualizações
gust
 gust
(@gust)
Posts: 7
Active Member
Topic starter
 

Boa tarde galera,

Seguinte, estou com um relatório bala, funcionando perfeitamente. O problema esta com o tamanho de algumas informações em determinadas células. Quando o texto é muito extenso (dependendo das seleções que o usuário fizer na planilha) o tamanho que eu pré-defini para as células (que fazem com que o relatório seja visualmente agradável) não é suficiente para a leitura completa dos dados.

Preciso de algo que faça com que o texto dessa célula se expanda ao passar o mouse (ou clicar) na célula selecionada, algo como um textbox dinâmico ou algo bem ninja hahaha

Algum de vocês poderiam me ajudar na empreitada?

Valeu!
:?:

 
Postado : 19/01/2017 12:01 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

gust,

Boa tarde!

Seria assim?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 19/01/2017 12:11 pm
gust
 gust
(@gust)
Posts: 7
Active Member
Topic starter
 

Não Wag, não posso redimensionar o tamanho da célula. A ideia seria exibir o texto da célula em algum outro objeto que não alterasse eu tamanho original

 
Postado : 19/01/2017 12:15 pm
gust
 gust
(@gust)
Posts: 7
Active Member
Topic starter
 

Consegui uma solução

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.ScreenUpdating = False
 
    If Len(ActiveCell) > 25 Then
       CaixaTexto.Visible = True
       CaixaTexto.Text = ActiveCell.Value
    Else
        CaixaTexto.Visible = False
    End If
Application.ScreenUpdating = True
 
End Sub
 
Postado : 23/01/2017 8:58 am