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

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Xiaoyang Last modified

При работе с изображениями в 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 по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ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% и уменьшите количество щелчков мышью на сотни ежедневно!

Все надстройки Kutools. Один установщик

Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.

Excel Word Outlook Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек