Ga naar hoofdinhoud

Hoe het formaat van het tekstvak automatisch aanpassen aan de inhoud in Excel?

De grootte van het tekstvak staat vast nadat het in een werkblad is ingevoegd. De grootte wordt dus niet aangepast aan de tekst die u hebt ingevoegd of verwijderd. Dit artikel is bedoeld om u methoden te laten zien om het formaat van het tekstvak automatisch aan te passen aan de inhoud in Excel.

De grootte van een tekstvak automatisch aanpassen aan de inhoud door de vorm aan te passen aan de tekstfunctie
Pas de grootte van alle tekstvakken automatisch aan de inhoud aan op basis van VBA-code


De grootte van een tekstvak automatisch aanpassen aan de inhoud door de vorm aan te passen aan de tekstfunctie

U kunt de eigenschap van het tekstvak als volgt wijzigen om het automatisch te laten aanpassen aan de tekst die u hebt ingevoerd of verwijderd.

1. Nadat u het tekstvak heeft ingevoegd, klikt u met de rechtermuisknop op de rand van het tekstvak en klikt u vervolgens op Grootte en eigenschappen vanuit het rechtsklikmenu. Zie screenshot:

2. U kunt een Vorm opmaken -venster wordt aan de rechterkant van het werkblad weergegeven, onder het Grootte en eigenschappen tabblad, controleer het Formaat wijzigen naar tekst box aan de tekstvak sectie en sluit vervolgens het Vorm opmaken paneel. Zie screenshot:

Vanaf nu wordt het formaat van het tekstvak automatisch aangepast aan de inhoud.

Note: Met deze methode, als er meerdere tekstvakken moeten worden gewijzigd, moet u de eigenschappen van de tekstvakken een voor een wijzigen.


Pas de grootte van alle tekstvakken automatisch aan de inhoud aan op basis van VBA-code

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

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.

VBA-code: pas de grootte van alle tekstvakken automatisch aan de inhoud in een werkblad aan

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 de F5 sleutel om de code uit te voeren. Vervolgens kunt u zien dat alle tekstvakken in het huidige werkblad automatisch worden aangepast aan de inhoud, zoals onderstaand screenshot.

En het formaat van deze tekstvakken wordt automatisch aangepast aan de inhoud die u invoert of verwijdert voor toekomstig gebruik.


Gerelateerd artikel:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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