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

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

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


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

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

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

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

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

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

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

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

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

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

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


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

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 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 - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 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 - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (47)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Инструкция с заголовком: Вставить несколько картинок в Excel с кодом VBA просто офигенно быстро и эффективно!!! это хорошая альтернатива покупке и установке плагинов. Это мой первый комментарий в сети!! слава!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я могу использовать модуль InsertPictures и правильно работать с jpg. Однако он не хочет работать для PNG. Вы могли бы посоветовать? С уважением, Лоуренс
Этот комментарий был сведен к минимуму модератором на сайте
В первой теме "Вставка нескольких изображений в Excel с кодом VBA" как вставить одно изображение в две ячейки. например, первое изображение будет вставлено в ячейки A1 и A2, второе изображение будет вставлено в ячейки A3 и A4 и так далее.
Этот комментарий был сведен к минимуму модератором на сайте
хорошая поддержка Excel.....вы действительно помогаете экономить время. спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Отличный пост! Но у меня есть другие способы сделать то же самое..... ==================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1). Выберите Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg"). Выбрать с выделением .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Конец со следующим диапазоном ("a1"). Выберите End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли версия Kuttools для Mac?
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли изменить этот код vba, чтобы вставить 4 изображения в сетку, например: pic1 в A1, pic2 в A2, pic3 в B1 и pic4 в B2? Танки!
Этот комментарий был сведен к минимуму модератором на сайте
неважно, я нашел, как это сделать :)
Этот комментарий был сведен к минимуму модератором на сайте
Привет, не могли бы вы поделиться измененным кодом?
Этот комментарий был сведен к минимуму модератором на сайте
Sub InsertPictures() 'Обновить 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) Затем xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Установить Rng = Cells(xRowIndex, xColIndex) Установить sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Не могли бы вы помочь мне изменить код, чтобы вставить объединенный столбец и строку. Sub InsertPictures() 'Обновить 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Столбец Если IsArray(PicList), то xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Установите Rng = Cells(xRowIndex, xColIndex) Установите sShape = ActiveSheet.Shapes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Этот комментарий был сведен к минимуму модератором на сайте
выберите ячейки и измените их размер по ширине и высоте в соответствии с вашими потребностями .. если у вас есть десять фотографий, выберите десять или более ячеек, выберите больше .. !! затем нажмите Alt + F11, затем нажмите «ВСТАВИТЬ», ЗАТЕМ нажмите «МОДУЛЬ», ЗАТЕМ ВСТАВЬТЕ СЛЕДУЮЩИЙ КОД КАК ЕСТЬ. PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column Если IsArray(PicList), то xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Установите Rng = Cells( xRowIndex, xColIndex) Установить sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 20140513 Next End If End Sub ПОСЛЕ ВЫШЕ КОДА НАЖМИТЕ F1 .. ЗАТЕМ ВЫБЕРИТЕ ФАЙЛЫ С КОМПЬЮТЕРА, ГДЕ ОНИ НАХОДЯТСЯ. ДО НАШЕЙ ПОТРЕБНОСТИ. ТОГДА, ЕСЛИ ВЫ НЕ СОХРАНИЛИ РАБОЧУЮ КНИГУ, ТОГДА ОН ПОПРОСИТ СОХРАНИТЬ ЕЕ. ЕСЛИ УЖЕ СОХРАНИЛ. ТОГДА ВАША РАБОТА НАДЕЕТСЯ, ЧТО ЭТО ПОМОЖЕТ.. Али..!!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, все работает
Этот комментарий был сведен к минимуму модератором на сайте
Привет, мастера EXcel, у меня есть 2 листа Excel. Одна с более чем сотней картинок и описанием картинки в соседней ячейке. Другой лист после выбора, вероятно, оставил 40 его описания. Как я могу перенести фотографии на этот лист в соответствии с моим выбором. Спасибо аль
Этот комментарий был сведен к минимуму модератором на сайте
или вы используете напрямую image-xls . с помощью этой надстройки Excel вы можете вставлять неограниченное количество изображений в ячейку Excel или в качестве комментария. он также изменяет размер ваших изображений. и можно заказать и отфильтровать лист Excel, включая изображения!
Этот комментарий был сведен к минимуму модератором на сайте
Я пользователь Mac, и как только я скопировал код в новый модуль и запустил его, ничего не происходит. Есть ли что-то, что мне нужно сделать на Mac, чтобы запустить код VBA? Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
[quote]или вы используете напрямую image-xls . с помощью этой надстройки Excel вы можете вставлять неограниченное количество изображений в ячейку Excel или в качестве комментария. он также изменяет размер ваших изображений. и можно заказать и отфильтровать лист Excel, включая изображения!Армин[/quote] [quote]Инструкция с заголовком : Вставка нескольких картинок в Excel с кодом VBA просто офигенно быстро и эффективно!!! это хорошая альтернатива покупке и установке плагинов. Это мой первый комментарий в сети!! слава!Рахул Гупта[/quote] я попробовал это и, кажется, работает нормально, но вы не можете заказать или отфильтровать список Excel, включая фотографии. также фотографии не масштабируются пропорционально. поэтому я купил image-xls - стоит немного, но все, что мне нужно
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Любая причина, по которой «Sub InsertPictures ()» не будет работать в Excel 2003? Я уже добавил ссылку на Microsoft.Scripting.Runtime Заранее спасибо Gilberto
Этот комментарий был сведен к минимуму модератором на сайте
это очень полезно мне. Это такая хорошая работа....... Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я попробовал код в своей электронной таблице, и он работал отлично. Пока не попробую сделать фильтр. Обнаружите, что последнее изображение всегда будет отображаться в результате фильтрации. кто-нибудь может помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Используя приведенную ниже программу VBA, невозможно вставить изображение в объединенную ячейку, 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.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Пожалуйста, посоветуйте мне изменить VBA .
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем, это здорово! Я следил за вашими учебниками в течение некоторого времени. Я надеялся, что вы сможете мне помочь, как мне изменить это с приклеивания изображений вниз по столбцу на через строку? И как я могу добавить «Полное имя файла (например, example_image.jpg)» в строку над ним. Строка «A»: «Имя файла.jpg» Строка «B»: «Миниатюра изображения» Спасибо!!
Этот комментарий был сведен к минимуму модератором на сайте
Эй, я вставил картинки, используя свой собственный код VBE. И теперь я попытался поделиться им с другими, к сожалению, они не могут видеть фотографии..... Я был бы признателен, если бы кто-нибудь мог сказать мне, что я упускаю. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Этот код ПОЧТИ работает для моих нужд. У меня 200 изображений, каждое изображение должно находиться на отдельном листе. Как мне это сделать?
Этот комментарий был сведен к минимуму модератором на сайте
Как изменить следующий код, чтобы изображения заполнялись в выбранном диапазоне ячеек в нескольких столбцах и строках, а не в последовательных ячейках в последовательных строках одного и того же столбца? Sub InsertPictures() 'Обновить 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Столбец Если IsArray(PicList), то xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Установите Rng = Cells(xRowIndex, xColIndex) Установите sShape = ActiveSheet.Shapes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Alguem conseguiu o codigo para pergunta dele? estou precisando tambem!
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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