Как автоматически изменить размер текстового поля в соответствии с содержимым Excel?
Размер текстового поля фиксируется после его вставки на рабочий лист. Таким образом, размер не будет соответствовать вставленному или удаленному тексту. Эта статья призвана показать вам методы автоматического изменения размера текстового поля в соответствии с содержимым Excel.
Автоматическое изменение размера текстового поля в соответствии с содержимым путем изменения размера формы в соответствии с функцией текста
Автоматическое изменение размера всех текстовых полей в соответствии с содержимым по коду VBA
Автоматическое изменение размера текстового поля в соответствии с содержимым путем изменения размера формы в соответствии с функцией текста
Вы можете изменить свойство текстового поля следующим образом, чтобы оно автоматически изменялось в соответствии с введенным или удаленным текстом.
1. После вставки текстового поля щелкните правой кнопкой мыши границу текстового поля, а затем щелкните Размер и свойства из контекстного меню. Смотрите скриншот:
2. Вы можете увидеть Форма форматирования панель отображается в правой части листа под Размер и свойства 
вкладку, проверьте Изменение размера фигуры в соответствии с текстом коробка в текст 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
