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

Как быстро изменить размер нескольких ячеек, чтобы они соответствовали изображениям в Excel?

Как мы знаем, Microsoft Excel поддерживает автоматическое изменение размера строки и ширины столбца ячейки для соответствия заполненному содержимому, например длинной текстовой строке. Однако команды "Автоподбор высоты строки" и "Автоподбор ширины столбца" недействительны для изображения, поскольку вставленное изображение не находится в определенной ячейке.

Измените размер ячеек по размеру изображений с помощью VBA

Измените размер изображений, чтобы они соответствовали ячейкам с помощью Kutools for Excel хорошая идея3

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

Измените размер ячеек по размеру изображений с помощью VBA

Предположим, что на листе есть два больших изображения, см. Следующий снимок экрана. Кто-то может захотеть изменить размер ячейки, чтобы она соответствовала изображению над ячейкой. Но как это реализовать?

doc-изменить размер ячейки в соответствии с картинкой1

Конечно, вы можете автоматически изменять размер каждой ячейки, чтобы соответствовать изображениям над ними. Однако это может быть утомительным и трудоемким для ряда изображений. Фактически, мы можем применить макрос VB, чтобы изменить размер всех ячеек, чтобы они соответствовали изображениям над ними. Вы можете сделать это, выполнив следующие действия:

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

Шаг 2: нажмите Вставить > Модулии вставьте следующий макрос в окно модуля.

VBA: изменение размера нескольких ячеек в соответствии с их изображениями.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Шаг 3: нажмите F5 ключ для запуска этого макроса.

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

doc-изменить размер ячейки в соответствии с картинкой2


Измените размер изображений, чтобы они соответствовали ячейкам с помощью Kutools for Excel

Если вы изменили размер ячеек, как показано на скриншоте ниже, а затем хотите импортировать и изменить размер изображений, чтобы они соответствовали размеру ячеек, как вы можете быстро это сделать? В этом случае, Kutools for Excel's Импорт изображений утилита может помочь вам легко справиться с этой работой.
документ изменить размер изображения по размеру ячейки 1

Kutools for Excel, с более чем 120 удобные функции, облегчают вашу работу. 

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже :(Скачать бесплатно Kutools for Excel сейчас!)

1. Нажмите Предприятие > Импорт/Экспорт > Импорт изображений. Смотрите скриншот:
документ изменить размер изображения по размеру ячейки 2

2. Во всплывающем Импорт изображений диалоговом окне вы можете сначала указать порядок импорта в Заказ на импорт раздел, а затем щелкните Добавить кнопку, чтобы добавить изображения из папки или в виде файлов по одному, после чего вы увидите, что изображения перечислены в Картина раздел. Смотрите скриншот:
документ изменить размер изображения по размеру ячейки 3

3. Затем нажмите Импортировать кнопка, чтобы показать Размер импортированного изображения диалоговое окно, затем проверьте Соответствующий размер ячейки вариант. Смотрите скриншот:
документ изменить размер изображения по размеру ячейки 4

4. Нажмите OK > Импортировать для отображения диалогового окна выбора ячеек, в которые вы хотите импортировать изображения. Смотрите скриншот:
документ изменить размер изображения по размеру ячейки 5

5. Нажмите OK, и теперь все объекты импортируются в ячейки и меняют свои размеры до соответствующих ячеек.
документ изменить размер изображения по размеру ячейки 6


Связанная статья:
Как вставить несколько изображений в ячейку в Excel?


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, отличный макрос - небольшая коррекция с большим OR EQUAL в 16 строке If Rows(N).Top >= PictureTop Then
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте Спасибо за макрос. Однако я не могу работать на своем компьютере. Я использую Excel 2011 для Mac Есть идеи? Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Отлично и все такое, но у меня уже были фотографии в ячейках, и, используя первый вариант, он уничтожил 99% всех уже имеющихся фотографий. Ни один не был сохранен, за исключением одной фотографии, размер которой был красиво изменен, за исключением того, что ширина фотографии была немного тонкой.
Этот комментарий был сведен к минимуму модератором на сайте
Как вы пришли к формуле (Столбцы(PictureColumn).ColumnWidth = PictureWidth * (54.29/288))? Это близко, но справа все еще есть зазор, как показано на скриншоте.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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