Wie kann die Größe des Textfelds automatisch an den Inhalt in Excel angepasst werden?
Die Größe des Textfelds wird nach dem Einfügen in ein Arbeitsblatt festgelegt. Die Größe passt sich also nicht dem eingefügten oder gelöschten Text an. Dieser Artikel zeigt Ihnen Methoden zum automatischen Ändern der Größe des Textfelds, um es an den Inhalt in Excel anzupassen.
Ändern Sie die Größe eines Textfelds automatisch, um es an den Inhalt anzupassen, indem Sie die Form an die Textfunktion anpassen
Ändern Sie die Größe aller Textfelder automatisch, um sie an den Inhalt per VBA-Code anzupassen
Ändern Sie die Größe eines Textfelds automatisch, um es an den Inhalt anzupassen, indem Sie die Form an die Textfunktion anpassen
Sie können die Eigenschaft des Textfelds wie folgt ändern, damit die Größe automatisch an den eingegebenen oder gelöschten Text angepasst wird.
1. Klicken Sie nach dem Einfügen des Textfelds mit der rechten Maustaste auf den Rand des Textfelds und klicken Sie dann auf Größe und Eigenschaften aus dem Kontextmenü. Siehe Screenshot:
2. Sie können a sehen Form formatieren Der Bereich wird auf der rechten Seite des Arbeitsblatts unter dem angezeigt Größe und Eigenschaften Registerkarte, überprüfen Sie die Größe anpassen, um Text anzupassen Box in der Text Box Abschnitt, und schließen Sie dann die Form formatieren Feld. Siehe Screenshot:
Von nun an wird die Größe des Textfelds automatisch an den Inhalt angepasst.
Note: Wenn bei dieser Methode mehrere Textfelder geändert werden müssen, müssen Sie die Eigenschaften der Textfelder nacheinander ändern.
Ändern Sie die Größe aller Textfelder automatisch, um sie an den Inhalt per VBA-Code anzupassen
Für ein Arbeitsblatt, das bereits mehrere Textfelder enthält, kann der folgende VBA-Code Ihnen helfen, die Größe automatisch an den Inhalt anzupassen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Ändern Sie die Größe aller Textfelder automatisch, um sie an den Inhalt eines Arbeitsblatts anzupassen
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann können Sie sehen, dass alle Textfelder im aktuellen Arbeitsblatt automatisch an den Inhalt angepasst werden (siehe Abbildung unten).
Die Größe dieser Textfelder wird automatisch mit dem Inhalt geändert, den Sie bei der zukünftigen Verwendung eingeben oder löschen.
Verwandter Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!