VBA – Quebrar Texto Automaticamente

Neste tutorial, você aprenderá a ativar ou desativar a opção Quebrar Texto Automaticamente no Excel usando o VBA.

Quebra de Texto Usando o VBA

Para envolver o texto em uma célula ou intervalo, defina a propriedade Range.WrapText do objeto Range como True. O código a seguir envolverá o texto na célula A1:

Worksheets("Planilha1").Range("A1").WrapText = True

O resultado é o seguinte:

Você também pode envolver um intervalo maior de células:

Range("A1:A10").WrapText = True

Desativação da Quebra de Texto em uma Célula Usando o VBA

Você pode desativar a quebra de texto em uma determinada célula ou intervalo usando o VBA. O código a seguir desativará a quebra de texto na célula B2:

Range("B2").WrapText = False

Desativação da Quebra de Texto em uma Planilha Inteira

É possível desativar a quebra de texto em todas as células de uma planilha usando o VBA. O código a seguir permitirá que você desative a quebra de texto em todas as células da Planilha Atual:

Sub DesativarQuebraDeTexto()

 Cells.WrapText = False

End Sub