Як автоматично змінити розмір текстового поля відповідно до вмісту в 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 Sub

3 Натисніть кнопку F5 клавіша для запуску коду. Тоді ви побачите, що всі текстові поля на поточному аркуші автоматично змінюються відповідно до його вмісту, як показано на знімку екрана нижче.

І ці текстові поля автоматично змінюватимуть розмір вмісту, який ви введете або видалите в майбутньому використанні.

---

Пов'язані статті:

• Як автоматично встановити розмір поля для коментарів відповідно до його вмісту в Excel?