Як автоматично змінити розмір текстового поля відповідно до вмісту в Excel?
Розмір текстового поля фіксується після вставки його в аркуш. Тож розмір не буде коригуватися відповідно до тексту, який ви вставили або видалили. Ця стаття має на меті показати вам методи автоматичного зміни розміру текстового поля відповідно до вмісту в Excel.
Автоматично змініть розмір текстового поля відповідно до вмісту, змінивши розмір форми відповідно до тексту
Автоматично змінюйте розмір усіх текстових полів відповідно до вмісту за кодом VBA
Автоматично змініть розмір текстового поля відповідно до вмісту, змінивши розмір форми відповідно до тексту
Ви можете змінити властивість текстового поля наступним чином, щоб воно автоматично змінило розмір із введеним або видаленим текстом.
1. Після вставки текстового поля клацніть правою кнопкою миші межу текстового поля, а потім клацніть Розмір та властивості з меню правої клавіші миші. Дивіться знімок екрана:
2. Ви можете бачити a Формат форми панель відображається з правого боку аркуша, під Розмір та властивості 
, перевірте Змініть розмір форми, щоб відповідати тексту коробка в Текстове поле а потім закрийте Формат форми панелі. Дивіться знімок екрана:
Відтепер текстове поле змінюватиметься, щоб автоматично відповідати вмісту.
примітки: За допомогою цього методу, якщо потрібно змінити кілька текстових полів, вам потрібно змінювати властивості текстових полів по одному.
Автоматично змінюйте розмір усіх текстових полів відповідно до вмісту за кодом VBA
Для робочого аркуша, який уже має кілька текстових полів, наступний код VBA може допомогти вам автоматично змінити розмір їх відповідно до вмісту одночасно.
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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% та зменшує сотні клацань миші для вас щодня!
