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 Sub3. 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:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen