Ir para o conteúdo principal

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

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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

Descrição


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations