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.

Nota: 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:

• Como dimensionar automaticamente a caixa de comentários para ajustar seu conteúdo no Excel?