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:

• Hogyan méretezhetem automatikusan a megjegyzésmezőt, hogy illeszkedjen az Excel tartalmához?