Hvordan ændres størrelsen automatisk på tekstfeltet, så det passer til indholdet i Excel?
Tekstboksstørrelsen er fast, efter at den er indsat i et regneark. Så størrelsen justeres ikke, så den passer til den tekst, du har indsat eller slettet. Denne artikel har til formål at vise dig metoder til automatisk at ændre størrelsen på tekstfeltet, så det passer til indholdet i Excel.
Ændr størrelsen på et tekstfelt automatisk, så det passer til indholdet, ved at ændre størrelsen på formen, så det passer til tekstfunktionen
Ændr størrelsen automatisk på alle tekstfelter, så de passer til indholdet efter VBA-kode
Ændr størrelsen på et tekstfelt automatisk, så det passer til indholdet, ved at ændre størrelsen på formen, så det passer til tekstfunktionen
Du kan ændre egenskaben for tekstfeltet som følger for at gøre det automatisk tilpasset til den tekst, du har indtastet eller slettet.
1. Når du har indsat tekstfeltet, skal du højreklikke på rammen til tekstfeltet og derefter klikke på Størrelse og egenskaber fra højreklikmenuen. Se skærmbillede:
2. Du kan se en Formater form ruden vises på højre side af regnearket under Størrelse og egenskaber fanen skal du kontrollere Ændre størrelse på form for at passe til tekst boks i tekst Box sektion, og luk derefter Formater form rude. Se skærmbillede:
Fra nu af ændres tekstfeltet størrelse, så det automatisk passer til indholdet.
Bemærk: Hvis der med denne metode er flere tekstfelter, der skal ændres, skal du ændre egenskaberne for tekstfelterne en efter en.
Ændr størrelsen automatisk på alle tekstfelter, så de passer til indholdet efter VBA-kode
For et regneark, der allerede har flere tekstfelter, kan følgende VBA-kode hjælpe dig med automatisk at ændre størrelsen på dem, så de passer til indholdet på én gang.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: Ændr størrelsen på alle tekstfelter automatisk, så de passer til indholdet i et regneark
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. Tryk på F5 nøgle for at køre koden. Derefter kan du se, at alle tekstfelter i det aktuelle regneark automatisk ændres til at passe indholdet som vist nedenfor.
Og disse tekstfelter ændres automatisk til det indhold, du indtaster eller sletter i fremtidig brug.
Relateret artikel:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!