Как автоматично да преоразмерите текстовото поле, за да пасне на съдържанието в Excel?

Размерът на текстовото поле е фиксиран след вмъкването му в работен лист. Така че размерът няма да се коригира, за да пасне на текста, който сте вмъкнали или изтрили. Тази статия ви показва методи за автоматично преоразмеряване на текстово поле, за да пасне на съдържанието в Excel.

Автоматично преоразмеряване на текстово поле, за да пасне на съдържанието чрез преоразмеряване на формата, за да пасне на текста
Автоматично преоразмеряване на всички текстови полета, за да пасне на съдържанието чрез VBA код

Автоматично преоразмеряване на текстово поле, за да пасне на съдържанието чрез преоразмеряване на формата, за да пасне на текста

Можете да промените свойството на текстовото поле, както следва, за да го накарате автоматично да преоразмерявате с текста, който въвеждате или изтривате.

1. След като вмъкнете текстовото поле, щракнете с десния бутон върху границата на текстовото поле и след това щракнете Размер и свойства от менюто с десен бутон. Вижте екранна снимка:

2. Можете да видите a Формат на формата прозорецът се показва от дясната страна на работния лист, под Размер и свойства раздел, проверете Преоразмерете формата така, че да съответства на текста в полето Text Box и след това затворете Формат на формата прозорец. Вижте екранна снимка:

Отсега нататък текстовото поле автоматично ще се преоразмерява, за да пасне на съдържанието.

Забележка: С този метод, ако има няколко текстови полета за промяна, трябва да промените свойствата на текстовите полета едно по едно.

Автоматично преоразмеряване на всички текстови полета, за да пасне на съдържанието чрез VBA код

За работен лист, който вече има множество текстови полета, следният VBA код може да ви помогне автоматично да ги преоразмерите, за да паснат на съдържанието наведнъж.

1. Натиснете Друг + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложения прозорец.

2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте и поставете долния VBA код в прозореца на модула.

VBA код: Автоматично преоразмеряване на всички текстови полета, за да пасне на съдържанието в работен лист

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. Натисни F5 ключ за изпълнение на кода. След това можете да видите, че всички текстови полета в текущия работен лист се преоразмеряват автоматично, за да паснат на съдържанието му, както е показано на екранната снимка по-долу.

И тези текстови полета ще се преоразмеряват автоматично със съдържанието, което въвеждате или изтривате при бъдеща употреба.

Свързана статия:

• Как да оразмерите автоматично полето за коментари, за да пасне на съдържанието му в Excel?