Como redimensionar automaticamente a caixa de texto para caber no conteúdo do Excel?
O tamanho da caixa de texto é corrigido após inseri-lo em uma planilha. Portanto, o tamanho não se ajustará ao texto que você inseriu ou excluiu. Este artigo tem como objetivo mostrar métodos de redimensionar automaticamente a caixa de texto para caber no conteúdo do Excel.
Redimensione automaticamente uma caixa de texto para caber no conteúdo, redimensionando a forma para caber no recurso de texto
Redimensione automaticamente todas as caixas de texto para ajustar o conteúdo pelo código VBA
Redimensione automaticamente uma caixa de texto para caber no conteúdo, redimensionando a forma para caber no recurso de texto
Você pode alterar a propriedade da caixa de texto da seguinte maneira para torná-la redimensionada automaticamente com o texto inserido ou excluído.
1. Depois de inserir a caixa de texto, clique com o botão direito na borda da caixa de texto e clique em Tamanho e propriedades no menu do botão direito. Veja a imagem:
2. Você pode ver um Formatar Forma painel é exibido no lado direito da planilha, sob o Tamanho e propriedades guia, marque o Redimensione a forma para ajustar o texto caixa no caixa de texto seção e, em seguida, feche o Formatar Forma painel. Veja a imagem:
A partir de agora, a caixa de texto será redimensionada para caber no conteúdo automaticamente.
Note: Com este método, se houver várias caixas de texto a serem alteradas, você precisará alterar as propriedades das caixas de texto uma por uma.
Redimensione automaticamente todas as caixas de texto para ajustar o conteúdo pelo código VBA
Para uma planilha que já possui várias caixas de texto, o código VBA a seguir pode ajudá-lo a redimensioná-las automaticamente para caber no conteúdo de uma vez.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: redimensiona automaticamente todas as caixas de texto para ajustar o conteúdo em uma planilha
Sub TextBoxResizeTB()
Dim xShape As Shape
Dim xSht As Worksheet
On Error Resume Next
For Each xSht In ActiveWorkbook.Worksheets
For Each xShape In xSht.Shapes
If xShape.Type = 17 Then
xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
xShape.TextFrame2.WordWrap = True
End If
Next
Next
End Sub
3. aperte o F5 chave para executar o código. Em seguida, você pode ver que todas as caixas de texto na planilha atual são redimensionadas automaticamente para caber em seu conteúdo, conforme a imagem mostrada abaixo.
E essas caixas de texto serão redimensionadas automaticamente com o conteúdo que você inserir ou excluir em uso futuro.
Artigo relacionado:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!