Как автоматично да преоразмерите текстовото поле, за да пасне на съдържанието в 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 Sub3. Натисни F5 ключ за изпълнение на кода. След това можете да видите, че всички текстови полета в текущия работен лист се преоразмеряват автоматично, за да паснат на съдържанието му, както е показано на екранната снимка по-долу.
И тези текстови полета ще се преоразмеряват автоматично със съдържанието, което въвеждате или изтривате при бъдеща употреба.
Свързана статия:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
