Hoe kun je de tekstvak automatisch aanpassen om de inhoud in Excel te passen?

De grootte van het tekstvak is vast na het invoegen in een werkblad. Daarom past de grootte zich niet aan om de tekst die je invoegt of verwijdert te passen. Dit artikel laat je methoden zien om een tekstvak automatisch aan te passen om de inhoud in Excel te passen.

Automatisch een tekstvak aanpassen om de inhoud te passen door de functie 'Vorm aanpassen aan tekst'
Alle tekstvakken automatisch aanpassen om de inhoud te passen met VBA-code

Automatisch een tekstvak aanpassen om de inhoud te passen door de functie 'Vorm aanpassen aan tekst'

Je kunt de eigenschappen van het tekstvak als volgt wijzigen om het automatisch aan te passen aan de tekst die je invoert of verwijdert.

1. Nadat je het tekstvak hebt ingevoegd, klik je met de rechtermuisknop op de rand van het tekstvak en klik je vervolgens op Grootte en Eigenschappen in het rechtsklikmenu. Zie screenshot:

2. Je ziet een Vorm Opmaak paneel dat wordt weergegeven aan de rechterkant van het werkblad, onder de Grootte en Eigenschappen tab, vink de optie Vorm aanpassen aan tekst vakje aan in de Tekstvak sectie, en sluit vervolgens het Vorm Opmaak paneel. Zie screenshot:

Vanaf nu zal het tekstvak automatisch aanpassen om de inhoud te passen.

Opmerking: Met deze methode moet je, als er meerdere tekstvakken moeten worden aangepast, de eigenschappen van de tekstvakken één voor één wijzigen.

Alle tekstvakken automatisch aanpassen om de inhoud te passen met VBA-code

Voor een werkblad dat al meerdere tekstvakken bevat, kan de volgende VBA-code helpen om ze automatisch in één keer aan te passen om de inhoud te passen.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Alle tekstvakken automatisch aanpassen om de inhoud in een werkblad te passen

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. Druk op de F5-toets om de code uit te voeren. Vervolgens zie je dat alle tekstvakken in het huidige werkblad automatisch zijn aangepast om de inhoud te passen zoals in onderstaande screenshot te zien is.

En deze tekstvakken zullen automatisch aanpassen met de inhoud die je in de toekomst invoert of verwijdert.

Gerelateerd artikel:

• Hoe maak je een opmerkingsvak automatisch passend aan de inhoud in Excel?