Jak automaticky změnit velikost textového pole tak, aby odpovídal obsahu v aplikaci Excel?
Po vložení do listu je velikost textového pole pevná. Velikost se tedy nebude přizpůsobovat textu, který jste vložili nebo odstranili. Cílem tohoto článku je ukázat vám metody automatické změny velikosti textového pole tak, aby se vešel do obsahu v aplikaci Excel.
Automatická změna velikosti textového pole tak, aby odpovídal obsahu, změnou velikosti tvaru tak, aby odpovídal textovému prvku
Automaticky změnit velikost všech textových polí, aby se vešly na obsah podle kódu VBA
Automatická změna velikosti textového pole tak, aby odpovídal obsahu, změnou velikosti tvaru tak, aby odpovídal textovému prvku
Vlastnost textového pole můžete změnit následujícím způsobem, aby se automaticky změnila velikost s textem, který jste zadali nebo odstranili.
1. Po vložení textového pole klikněte pravým tlačítkem na okraj textového pole a poté klikněte na Velikost a vlastnosti z nabídky pravého tlačítka myši. Viz screenshot:
2. Můžete vidět a Formátovat tvar podokno se zobrazí na pravé straně listu pod Velikost a vlastnosti 
karta, zkontrolujte Změňte velikost tvaru tak, aby odpovídala textu pole v Text Box sekce a poté zavřete Formátovat tvar podokno. Viz screenshot:
Od této chvíle se velikost textového pole automaticky přizpůsobí obsahu.
Poznámka: U této metody platí, že pokud je třeba změnit více textových polí, musíte postupně změnit vlastnosti textových polí.
Automaticky změnit velikost všech textových polí, aby se vešly na obsah podle kódu VBA
U listu, který již obsahuje více textových polí, vám může pomoci následující kód VBA s automatickou změnou jejich velikosti tak, aby odpovídal obsahu najednou.
1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.
Kód VBA: Automatická změna velikosti všech textových polí, aby se vešel do obsahu listu
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. zmáčkni F5 klíč ke spuštění kódu. Pak můžete vidět, že všechna textová pole v aktuálním listu se automaticky změní tak, aby odpovídala jeho obsahu, jak je uvedeno níže.
A tato textová pole se automaticky změní podle obsahu, který zadáte nebo odstraníte při budoucím použití.
Související článek:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
