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