Перейти к основному содержанию

Как вставить несколько изображений и сразу изменить их размер в Excel?

Нам легко вставить одно изображение в Excel, но если вам нужно вставить сразу несколько изображений, чтобы сэкономить много времени, как вы могли бы это сделать?


Вставьте несколько изображений и измените их размер сразу с помощью функции «Вставить изображение»

Мы можем вставить несколько изображений сразу с помощью функции (Вставить) Изображение в Excel, а затем изменить их размер одновременно. Пожалуйста, сделайте следующее:

1. На листе щелкните Вставить > Картина.

2. В диалоговом окне «Вставить изображение» откройте папку, содержащую изображения, которые вы будете вставлять, выберите несколько изображений, которые вам нужны, и нажмите кнопку Вставить кнопка. Смотрите скриншот:
Внимание: Держа Ctrl клавишу, вы можете выбрать несколько несмежных изображений, щелкая их по одному; держа Shift клавишу, вы можете выбрать несколько соседних изображений, щелкнув первое изображение и последнее.

Теперь изображения вставляются навалом и складываются на листе.

3. Выделите эти изображения и измените их размер сразу, введя новый номер в оба Ширина и рост коробки в Размер группы на Формат таб. Смотрите скриншот:

Теперь все вставленные картинки изменяются до одинакового размера одновременно сразу.

4. В настоящее время вам необходимо вручную переместить каждую картинку отдельно на подходящее место.

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

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

Ассоциация Сопоставить Импорт изображений особенность Kutools for Excel, это фантастический инструмент, который может пакетно импортировать и вставлять несколько изображений на основе содержимого ячеек и легко изменять размер импортированных изображений так же, как размер ячейки, или до указанного размера.


объявление соответствует импортированным фото 01

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

Вставка нескольких изображений и массовое изменение их размера с помощью OneNote

Чтобы избежать перемещения изображений друг за другом, в этом методе представлен еще один трюк для вставки нескольких изображений с помощью OneNote. Пожалуйста, сделайте следующее:

1. Запустите OneNote и создайте новую страницу. А затем нажмите Вставить > Картина.

2. В диалоговом окне «Вставить изображение» откройте папку, содержащую изображения, которые вы будете вставлять, выберите несколько изображений, которые вам нужны, и нажмите кнопку Вставить кнопка. Смотрите скриншот:
Внимание: Держа Ctrl клавишу, вы можете выбрать несколько несмежных изображений, щелкая их по одному; держа Shift клавишу, вы можете выбрать несколько соседних изображений, щелкнув первое изображение и последнее.

doc вставить несколько изображений OneNote 032

3, нажмите Ctrl + A клавиши, чтобы выбрать все вставленные изображения в OneNote, а затем нажмите Ctrl + C ключи для их копирования.

4. Перейдите к листу в Excel и нажмите Ctrl + V ключи для вставки изображений в рабочий лист. Теперь все изображения вставлены вертикально, как показано на скриншоте слева.

5. Выберите любое из изображений и нажмите Ctrl + A ключи, чтобы выбрать все из них. Затем измените размер изображений сразу, введя новые числа в оба Ширина и рост коробки в Размер группы на Формат таб. Смотрите скриншот:

Теперь все указанные изображения вставляются в Excel и массово изменяются до того же размера.


Вставьте несколько изображений в Excel с кодом VBA

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

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

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

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

Sub InsertPictures()
'Update 20140513
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 ключ для запуска этого кода.

5. В диалоговом окне «Открыть» откройте папку, содержащую изображения, которые вы хотите вставить, выберите несколько изображений, которые вы хотите вставить, и нажмите кнопку Откройте кнопка. И все выбранные изображения были импортированы в ваш выбор на основе размера ячейки. Смотрите скриншот:


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

Kutools for ExcelАвтора Импорт изображений Утилита может помочь вам быстро вставить несколько изображений в Excel в зависимости от размера ячейки или размера изображения. Вы также можете указать высоту и ширину изображений по своему усмотрению.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

1. Нажмите Кутулс Плюс > Импорт / Экспорт > Импорт изображений, см. снимок экрана:

2. В Импорт изображений диалоговое окно, сделайте следующее:
(1) Укажите порядок отображения изображений из Заказ на импорт выпадающий список, вы можете выбрать Заполнять по вертикали ячейку за ячейкой or Заполнить по горизонтали ячейку за ячейкой.
(2) Нажмите Добавить кнопку, чтобы выбрать файлы изображений или папку для добавления изображений в список изображений. И все выбранные вами изображения будут перечислены в списке.
(3) Щелкните значок Размер импорта кнопка;

3, Теперь в Размер импортированного изображения В диалоговом окне вы можете выбрать размер изображения, который вам нужен. Смотрите скриншот:

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

5. В новом диалоговом окне «Импорт изображений» выберите первую ячейку целевого диапазона, в который вы будете вставлять изображения, и нажмите кнопку OK .

В настоящее время все выбранные вами изображения были вставлены в ваши ячейки из активной ячейки по вертикали или горизонтали. Смотрите правый снимок экрана:

Ассоциация Импорт изображений Функция Kutools for Excel предназначена для вставки пакета изображений одновременно с соответствующим размером ячейки, указанным размером или собственными размерами изображений в Excel. Получите бесплатную пробную версию!


Вставьте несколько изображений, соответствующих их именам, с помощью Kutools for Excel

Kutools for Excel также поддерживает драматический Сопоставить Импорт изображений функция сопоставления изображений и содержимого ячеек и вставка совпадающих изображений только в Excel.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now

1. Выберите ячейки имени изображения, в которые вы хотите вставить соответствующие изображения, и нажмите Кутулс Плюс > Импорт / Экспорт > Сопоставить Импорт изображений. см. снимок экрана:

2. В появившемся диалоговом окне «Сопоставить импорт изображений» выполните следующие действия:
(1) Укажите порядок отображения изображений из Заказ на импорт раскрывающийся список;
(2) Нажмите Добавить кнопку, чтобы добавить изображения в список изображений. К вашему сведению, будут перечислены только совпадающие изображения.
(3) Затем нажмите Размер импорта .

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

4. Теперь вы вернетесь к Импорт изображений диалоговое окно, нажмите Импортировать кнопку для импорта изображений.

5. В появившемся диалоговом окне «Сопоставить импорт изображений» укажите первую ячейку целевого диапазона, в который вы будете вставлять изображения, и нажмите кнопку OK кнопка. Смотрите скриншот:

Пока все изображения вставляются в ячейки на основе их относительных имен. Смотрите правый снимок экрана:

Ассоциация Сопоставить Импорт изображений Функция Kutools for Excel может помочь пользователям Excel быстро фильтровать изображения на основе значений ячеек, а затем вставлять эти изображения сразу. Кроме того, эти совпадающие изображения могут быть автоматически изменены до указанного размера или размера ячейки. Получите бесплатную пробную версию!


Демонстрация: вставьте несколько изображений и измените их размер одновременно в Excel

Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Бесплатная пробная версия сейчас!      Купить!


Статьи по теме

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

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

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

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
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
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

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)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations