Note: The other languages of the website are Google-translated. Back to English

Как автоматически изменить размер текстового поля в соответствии с содержимым 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 Sub

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

И эти текстовые поля будут автоматически изменять размер в соответствии с содержимым, которое вы вводите или удаляете в будущем.


Связанная статья:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL