Как автоматически изменить размер текстового поля, чтобы оно соответствовало содержимому в Excel?
Размер текстового поля фиксирован после его вставки на лист. Таким образом, размер не будет подстраиваться под вставленный или удаленный текст. В этой статье показаны методы для автоматического изменения размера текстового поля, чтобы оно соответствовало содержимому в Excel.
Автоматическое изменение размера текстового поля для соответствия содержимому с помощью функции изменения размера формы под текст
Автоматическое изменение размера всех текстовых полей для соответствия содержимому с помощью кода VBA
Автоматическое изменение размера текстового поля для соответствия содержимому с помощью функции изменения размера формы под текст
Вы можете изменить свойство текстового поля следующим образом, чтобы оно автоматически изменяло размер при вводе или удалении текста.
1. После вставки текстового поля щелкните правой кнопкой мыши по границе текстового поля, а затем выберите «Размер и свойства» в контекстном меню. См. скриншот:
2. Вы увидите Формат фигуры панель, которая отображается на правой стороне листа, в разделе Размер и свойства 
вкладка, отметьте Изменять размер фигуры под текст флажок в разделе Текстовое поле раздел, а затем закройте Формат фигуры панель. См. скриншот:
С этого момента текстовое поле будет автоматически изменять размер, чтобы соответствовать содержимому.
Примечание: При использовании этого метода, если нужно изменить несколько текстовых полей, вам придется изменять свойства каждого текстового поля по отдельности.
Автоматическое изменение размера всех текстовых полей для соответствия содержимому с помощью кода VBA
Для листа, который уже содержит несколько текстовых полей, следующий код VBA поможет вам автоматически изменить их размер, чтобы они соответствовали содержимому сразу.
1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставка > Модуль. Затем скопируйте и вставьте приведенный ниже код 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, чтобы запустить код. Затем вы увидите, что все текстовые поля на текущем листе автоматически изменены в размере, чтобы соответствовать содержимому, как показано на скриншоте ниже.
И эти текстовые поля будут автоматически изменять размер в соответствии с введенным или удаленным содержимым при последующем использовании.
Связанная статья:
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек