Hogyan lehet automatikusan átméretezni a szövegdobozt, hogy illeszkedjen az Excel tartalmához?
A szövegdoboz mérete rögzül, miután beillesztette egy munkalapba. Tehát a méret nem igazodik a beillesztett vagy törölt szöveghez. Ennek a cikknek a célja a szövegdoboz automatikus átméretezésének módszereinek bemutatása az Excel tartalmának megfelelően.
A szövegdoboz automatikus átméretezése a tartalomnak való megfelelés érdekében az alakzat méretének a szöveghez igazításával
Az összes szövegdoboz automatikus átméretezése a tartalom VBA kóddal történő illesztésére
A szövegdoboz automatikus átméretezése a tartalomnak való megfelelés érdekében az alakzat méretének a szöveghez igazításával
A szövegdoboz tulajdonságát az alábbiak szerint módosíthatja, hogy automatikusan átméretezhesse a megadott vagy törölt szöveggel.
1. A szövegmező beillesztése után kattintson a jobb gombbal a szövegmező szegélyére, majd kattintson a gombra Méret és tulajdonságok a jobb egérgombbal kattintva. Lásd a képernyőképet:
2. Láthatja a Formátum alakja panel jelenik meg a munkalap jobb oldalán, a Méret és tulajdonságok lapon ellenőrizze a Formázza át az alakot a szöveg illeszkedéséhez doboz a szöveg doboz részt, majd zárja be a Formátum alakja ablaktábla. Lásd a képernyőképet:
Mostantól a szövegdoboz átméretezésre kerül, hogy a tartalom automatikusan illeszkedjen.
Megjegyzések: Ezzel a módszerrel, ha több szövegmezőt kell megváltoztatni, akkor egyenként meg kell változtatnia a szövegdobozok tulajdonságait.
Az összes szövegdoboz automatikus átméretezése a tartalom VBA kóddal történő illesztésére
Egy olyan munkalap esetében, amelynek már több szövegmezője van, a következő VBA-kód segíthet abban, hogy automatikusan átméretezze őket, hogy egyszerre illeszkedjenek a tartalomhoz.
1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA-kód: Az összes szövegdoboz automatikus átméretezése a munkalap tartalmának megfelelővé tételhez
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. megnyomni a F5 gombot a kód futtatásához. Ezután láthatja, hogy az aktuális munkalap összes szövegmezője automatikusan átméretezésre kerül, hogy illeszkedjen a tartalmához, az alábbi képernyőképen.
Ezek a szövegmezők automatikusan átméretezésre kerülnek azzal a tartalommal, amelyet beír vagy töröl a későbbi használat során.
Kapcsolódó cikk:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!