Перейти к содержимому

Пакетное автоматическое изменение размера изображений для соответствия ячейкам в Excel – 2 полезных способа

Author: Xiaoyang Last Modified: 2025-08-07

При работе с изображениями в Excel их выравнивание по ячейкам имеет решающее значение для структурированного и организованного представления. Если вы часто вставляете изображения в Excel и хотите, чтобы они автоматически изменяли размер для соответствия размерам ячеек, это руководство проведет вас через лучшие методы для эффективного изменения размера изображений.

Пакетное автоматическое изменение размера изображений для соответствия ячейкам с помощью кода VBA

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


Изменение размера выбранного изображения для соответствия одной ячейке с помощью кода VBA

Для пользователей, которым необходимо вставить несколько изображений и автоматически изменить их размер для размещения в определенных ячейках, макрос VBA предоставляет высокоэффективное решение. Используя VBA, вы можете упростить процесс импорта и настройки изображений, гарантируя их идеальное соответствие границам ячеек. Этот метод особенно полезен при работе с массовым импортом изображений, так как исключает необходимость ручного изменения размера и позиционирования.

1. Настройте размер ячейки, куда вы хотите поместить изображение, и выберите ячейки.

2. Затем нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно "Microsoft Visual Basic for Applications".

3. Нажмите "Вставить" > "Модуль" и вставьте следующий макрос в окно Модуля.

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

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Затем нажмите клавишу F5, чтобы запустить этот код. В открывшемся окне выберите папку, содержащую изображения, затем выберите изображения, которые вы хотите вставить.
vba code to select the images

5. После этого нажмите кнопку "Открыть", и все выбранные изображения будут вставлены в ваш выбор на основе размера ячейки. См. скриншот:
vba code to insert the images to fit cells


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

Если вы не знакомы с кодом VBA, не волнуйтесь! Kutools для Excel предлагает простой и эффективный способ пакетного автоматического изменения размера изображений для соответствия их ячейкам. Эта функция особенно полезна для пользователей, которые часто вставляют изображения, такие как списки продуктов, отчеты или визуальные презентации данных.

В этом разделе мы проведем вас через шаги для автоматического изменения размера нескольких изображений для соответствия их ячейкам с помощью Kutools для Excel, экономя ваше время и обеспечивая аккуратную и организованную таблицу.

Kutools для Excel предлагает более 300 продвинутых функций для упрощения сложных задач, повышая креативность и эффективность. Интеграция с возможностями ИИ позволяет Kutools автоматизировать задачи с высокой точностью, делая управление данными без усилий. Подробная информация о Kutools для Excel...  Бесплатная пробная версия...

После установки Kutools для Excel выполните следующие действия:

  1. Нажмите "Kutools Plus" > "Импорт/Экспорт" > "Импортировать изображения".
    Click the Kutools Plus >Import/Export > Import Pictures
  2. В диалоговом окне "Импортировать изображения" настройте следующие параметры:
    • Нажмите кнопку "Добавить", чтобы выбрать файлы изображений или папку для добавления изображений в список изображений;
    • В раскрывающемся меню "Размер импорта" выберите "Соответствие размеру ячейки";
    • Укажите порядок изображений из раскрывающегося списка "Порядок импорта", вы можете выбрать "Заполнить по столбцу, затем по строке" или "Заполнить по строке, затем по столбцу";
    • Наконец, нажмите кнопку "Импорт".
      specify the options in the dialog box
  3. Теперь появится еще одно окно "Импортировать изображения", укажите целевые ячейки, куда вы будете импортировать изображения, см. скриншот:
    select range to put the images
  4. Затем нажмите кнопку OK, все выбранные изображения будут вставлены для соответствия размеру конкретных ячеек, как показано на скриншоте ниже:
    insert the images by cell size by kutools

Заключение

Как макрос VB, так и Kutools для Excel предлагают эффективные способы изменения размера изображений для соответствия ячейкам, но они подходят для разных потребностей и уровней навыков пользователей.

  • Код VBA идеально подходит для пользователей, которым требуется высокая степень настройки и которые комфортно чувствуют себя при программировании. Это экономичное решение, но требует некоторых технических знаний.
  • Kutools для Excel отлично подходит для пользователей, предпочитающих удобный интерфейс без необходимости программирования, и готовых инвестировать в сторонний инструмент для дополнительных функций и удобства использования.

В конечном счете, выбор между двумя методами зависит от конкретных требований пользователя, технических навыков и бюджета. Для тех, кто часто работает с изображениями в Excel, исследование обоих вариантов и понимание их сильных и слабых сторон может привести к более эффективным и оптимизированным рабочим процессам. Если вам интересно узнать больше советов и приемов Excel, наш сайт предлагает тысячи учебных материалов, которые помогут вам освоить Excel.


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

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

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!