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

Як вставити кілька зображень і змінити їх розмір одночасно в Excel?

Нам легко вставити одне зображення в Excel, але якщо вам потрібно вставити кілька зображень одночасно, щоб це заощадило багато часу, як ви могли це зробити?


Вставте декілька зображень та змініть їх розмір за допомогою функції Вставити зображення

Ми можемо вставити кілька зображень масово за допомогою функції (Вставити) Зображення в Excel, а потім одночасно змінити їх розмір. Будь ласка, виконайте наступне:

1. На аркуші натисніть Insert > Картинка.

2. У діалоговому вікні Вставити зображення, будь ласка, відкрийте папку, що містить картинки, які ви вставите, виберіть кілька зображень, скільки вам потрібно, і натисніть на Insert кнопку. Дивіться знімок екрана:
примітки: Холдинг Ctrl клавіше, ви можете вибрати кілька сусідніх зображень, клацаючи по одному; проведення Shift клавіше, можна вибрати кілька сусідніх зображень, натиснувши перше та останнє зображення.

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

3. Залиште ці зображення вибраними та змініть їх розмір, ввівши новий номер в обидва ширина і висота коробки в Розмір група на сформований вкладку. Дивіться знімок екрана:

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

4. В даний час вам потрібно вручну перемістити кожне зображення окремо у відповідне місце.

примітки: Якщо накладаються десятки фотографій, переміщення їх вручну відповідно до місць буде досить трудомістким.

Пакетна вставка кількох зображень, що відповідають вмісту комірок у Excel

повне г, повне г,, показали, від, номер, XNUMX Імпорт зображень відповідності Особливість Kutools для Excel - це фантастичний інструмент, який дозволяє групово імпортувати та вставляти кілька зображень на основі вмісту комірок, а також легко змінювати розмір імпортованих зображень, однакових за розміром комірки або до заданого розміру.


імпортовані фотографії оголошень 01

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now

Вставте декілька зображень та змініть їх розмір за допомогою OneNote

Щоб уникнути переміщення малюнків, що складаються один за одним, цей метод вводить ще одну хитрість, щоб вставити кілька зображень за допомогою OneNote. Будь ласка, виконайте наступне:

1. Запустіть OneNote і створіть нову сторінку. А потім клацніть Insert > Картинка.

2. У діалоговому вікні Вставити зображення, будь ласка, відкрийте папку, що містить картинки, які ви вставите, виберіть кілька зображень, скільки вам потрібно, і натисніть на Insert кнопку. Дивіться знімок екрана:
примітки: Холдинг 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. Клацання Insert > Модуліта вставте наступний макрос у Вікно модуля.

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 для Excel

Kutools для ExcelАвтора Імпорт зображень Утиліта може допомогти вам швидко вставити кілька зображень в Excel на основі розміру комірки або розміру зображення. Ви також можете вказати висоту та ширину зображень, як вам потрібно.

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now

1. Клацання Kutools Plus > Імпорт-експорт > Імпорт зображень, див. скріншот:

2, в Імпорт зображень діалогове вікно, будь-ласка, зробіть наступне:
(1) Вкажіть порядок відображення зображень із Імпортне замовлення випадаючий список, ви можете вибрати Заповнюйте вертикально клітинку за коміркою or Заповнюйте горизонтально клітинку за коміркою.
(2) Клацніть додавати , щоб вибрати файли зображень або папку, щоб додати зображення до списку Зображення. І всі вибрані вами фотографії будуть перераховані у вікні списку.
(3) Клацніть на Розмір імпорту кнопка;

3. Зараз у Імпортувати розмір зображення діалогове вікно, ви можете вибрати розмір зображення відповідно до ваших потреб. Дивіться знімок екрана:

4. Вказавши розмір зображення, натисніть OK щоб закрити це діалогове вікно і повернутися до Імпорт зображень діалог, клацніть Імпортувати , щоб імпортувати зображення.

5. У новому діалоговому вікні Імпорт зображень виберіть першу клітинку цільового діапазону, до якого ви вставите зображення, та натисніть на OK кнопки.

Наразі всі вибрані вами фотографії були вставлені у ваші комірки з активної комірки вертикально або горизонтально. Дивіться знімок екрана праворуч:

повне г, повне г,, показали, від, номер, XNUMX Імпорт зображень Особливість Kutools для Excel призначена для вставки партії зображень одночасно з відповідним розміром комірки, заданим розміром або власними розмірами зображень у Excel. Отримайте безкоштовну пробну версію!


Вставте кілька зображень, що відповідають їхнім іменам, за допомогою Kutools для Excel

Kutools для Excel також підтримує кардинальну Імпорт зображень відповідності функція, яка відповідає зображенням та вмісту комірок та вставляє відповідні картинки лише масово в Excel.

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now

1. Виділіть клітинки з іменами зображення, до яких потрібно вставити відповідні картинки, та натисніть Kutools Plus > Імпорт-експорт > Імпорт зображень відповідності. див. скріншот:

2. У діалоговому вікні "Імпорт зображень відповідності", що з'явилося, виконайте такі дії:
(1) Вкажіть порядок відображення зображень із Імпортне замовлення випадаючий список;
(2) Клацніть додавати , щоб додати зображення у вікно зі списком зображень. Для вашої інформації будуть перераховані лише відповідні картинки.
(3) Потім натисніть Розмір імпорту кнопки.

3. Зараз у Імпортувати розмір зображення Ви можете вибрати розмір зображення, що відповідає вашим потребам, і натиснути на Ok кнопку. Дивіться знімок екрана:

4. Тепер ви повертаєтесь до Імпорт зображень діалог, клацніть Імпортувати , щоб імпортувати зображення.

5. У спливаючому діалоговому вікні Імпорт зображень відповідності вкажіть першу клітинку цільового діапазону, до якого ви вставите зображення, та натисніть OK кнопку. Дивіться знімок екрана:

Поки що всі картинки вставляються в клітинки на основі їх відносних назв. Дивіться знімок екрана праворуч:

повне г, повне г,, показали, від, номер, XNUMX Імпорт зображень відповідності Функція Kutools для Excel може допомогти користувачам Excel швидко фільтрувати зображення на основі значень комірок, а потім вставляти ці фотографії масово. Крім того, ці зіставлені зображення можна автоматично змінити до заданого розміру або розміру комірки. Отримайте безкоштовну пробну версію!


Демонстрація: вставте кілька зображень та одночасно змініть їх розмір у програмі Excel

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


Статті по темі


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (47)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Інструкції із заголовком : Вставити кілька зображень в Excel за допомогою коду VBA - це просто неймовірно швидко та ефективно !!! це хороша альтернатива для покупки та встановлення плагінів. Це мій перший коментар в мережі!! слава!
Цей коментар був мінімізований модератором на сайті
Привіт, я можу використовувати модуль InsertPictures і працює належним чином до jpg. Однак він не хоче працювати для PNG. Чи можете ви порадити? З повагою, Лоуренс
Цей коментар був мінімізований модератором на сайті
У першій темі «Вставити кілька зображень у Excel за допомогою коду VBA», як вставити одне зображення в дві клітинки. наприклад, перше зображення буде вставлено в клітинки A1 і A2, друге зображення буде вставлено в клітинки A3 і A4 і так далі.
Цей коментар був мінімізований модератором на сайті
хороша підтримка Excel.....ви, gyus, дійсно допомагаєте заощадити час. Спасибі
Цей коментар був мінімізований модератором на сайті
Чудовий пост! Але в мене є інші способи зробити те саме..... ===================================== ============ Sub ipic() Dim i As Integer Для i = 2–10 комірок(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# End With Next Range("a1"). Виберіть End Sub
Цей коментар був мінімізований модератором на сайті
Чи є версія Kuttools для Mac?
Цей коментар був мінімізований модератором на сайті
Чи можна змінити цей код vba, щоб вставити 4 зображення в шаблон, схожий на сітку, як це: pic1 в A1, pic2 в A2, pic3 в B1 і pic4 в B2? Танки!
Цей коментар був мінімізований модератором на сайті
неважливо, я знайшов, як це зробити :)
Цей коментар був мінімізований модератором на сайті
Привіт, не могли б ви поділитися зміненим кодом?
Цей коментар був мінімізований модератором на сайті
Sub InsertPictures() 'Оновити 20140513 Dim PicList() як варіант Dim PicFormat як рядок Dim Rng як діапазон Dim sShape як фігура при помилці Поновити Наступний PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=TrueCl Application =Col.Index) x If. IsArray(PicList) Тоді xRowIndex = Application.ActiveCell.Row Для lLoop = LBound(PicList) To UBound(PicList) Встановіть Rng = Cells(xRowIndex, xColIndex) Встановіть sShape = ActiveSheet.Shapes.AddLeistPicture(CTFPic), , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Цей коментар був мінімізований модератором на сайті
Не могли б ви допомогти мені змінити код, щоб вставити об’єднані стовпець і рядок. Sub InsertPictures() 'Оновити 20140513 Dim PicList() Як варіант Dim PicFormat Як рядок Dim Rng Як ​​діапазон Dim sShape Як фігура при помилці Продовжити наступний PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=TrueCl) xxl. Column If IsArray(PicList) Тоді xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Встановіть Rng = Cells(xRowIndex , xColIndex) Встановіть sShape = ActiveSheet.Shature(PicLoopAdd.Shature) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Цей коментар був мінімізований модератором на сайті
виберіть клітинки та змініть їх розмір за шириною та висотою відповідно до ваших потреб.. якщо у вас є десять фотографій, виберіть десять або більше клітинок, виберіть більше..!! потім натисніть Alt+F11 потім клацніть ВСТАВИТИ ПІДТЯ клацніть МОДУЛЬ ПІД ТАКИМ ВСТАВИТИ НАСТУПНИЙ КОД ЯК Є.. Sub InsertPictures() 'Оновити 20140513 Dim PicList() як варіант PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column Якщо IsArray(PicList) Тоді xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(P RngCell) To UBound(P RngIndex = Application.ActiveCell.Row) xRowIndex, xColIndex) Встановіть sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = x1 Next End, якщо THE КОД НАТИСНІТЬ Вище F5 .. ПОТІМ ВИБЕРІТЬ ФАЙЛИ З КОМП'ЮТЕРА, ДЕ НЕ ВОНИ. ДО ПОТРІБ. ТОДІ ЯКЩО ВИ НЕ ЗБЕРЕГЛИ РОБОЧУ ЗОШИНУ, ТО ВОНА ПРОСИТЬ ЗБЕРЕГТИ. ЯКЩО ВИ ВЖЕ ЗБЕРЕГЛИ. ТОДІ ВАША РОБОТА НАДІЙСЯ, ЧТО ЦЕ ДОПОМАГАЄ.. Алі..!!
Цей коментар був мінімізований модератором на сайті
Велике спасибі, це працює
Цей коментар був мінімізований модератором на сайті
Привіт EXcel Masters, у мене є 2 аркуші Excel. Один із більш ніж сотнею зображень та описом зображення в наступній клітинці до нього. Інший аркуш після вибору, ймовірно, залишився з 40 описом. Як я можу перенести зображення на цей аркуш відповідно до мого вибору. Дякую аль
Цей коментар був мінімізований модератором на сайті
або ви використовуєте безпосередньо image-xls . за допомогою цієї надбудови Excel ви можете вставляти необмежену кількість зображень у клітинку Excel або як коментар. він також змінює розміри ваших зображень. і ви можете замовити та відфільтрувати ваш аркуш Excel, включаючи зображення !
Цей коментар був мінімізований модератором на сайті
Я користувач Mac, і як тільки я скопіював код у новий модуль і запустив його, нічого не відбувається. Чи потрібно щось зробити в Mac, щоб запустити код VBA? Спасибі
Цей коментар був мінімізований модератором на сайті
[цитата]або ви використовуєте безпосередньо image-xls . за допомогою цієї надбудови Excel ви можете вставляти необмежену кількість зображень у клітинку Excel або як коментар. він також змінює розміри ваших зображень. і ви можете замовити та відфільтрувати ваш аркуш Excel, включаючи зображення !Від Арміна[/quote] [quote]Інструкції із заголовком : Вставте кілька зображень у Excel за допомогою коду VBA - це просто неймовірно швидко та ефективно !!! це хороша альтернатива для покупки та встановлення плагінів. Це мій перший коментар в мережі!! слава!Автор: Рахул Гупта[/quote] Я спробував це і, здається, працює добре, але ви не можете впорядкувати або відфільтрувати список Excel, включаючи фотографії. також зображення не масштабовані пропорційно. тому я купив image-xls - коштує трохи, але робить все, що мені потрібно
Цей коментар був мінімізований модератором на сайті
Привіт! Чи є причина, чому "Sub InsertPictures()" не працюватиме в Excel 2003? Я вже додав посилання на Microsoft.Scripting.Runtime Наперед дякую, Гілберто
Цей коментар був мінімізований модератором на сайті
це мені дуже допомагає. Це така гарна робота....... Дякую
Цей коментар був мінімізований модератором на сайті
Привіт, я спробував код у своїй електронній таблиці, і він працював ідеально. Поки не спробую зробити фільтр. Знайдіть, що останнє зображення завжди відображатиметься в результатах фільтрування. хтось може допомогти?
Цей коментар був мінімізований модератором на сайті
За допомогою програми VBA нижче неможливо вставити зображення в об’єднану клітинку, Sub InsertPictures() 'Оновити 20140513 Dim PicList() як варіант , MultiSelect:=True) xColIndex = Application.ActiveCell.Column Якщо IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Встановіть RngCInSells(x)xpe . = 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() Як варіант Dim PicFormat Як рядок Dim Rng Як ​​діапазон Dim sShape Як фігура при помилці Продовжити наступний PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=TrueCl) xxl. Column If IsArray(PicList) Тоді xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Встановіть Rng = Cells(xRowIndex , xColIndex) Встановіть sShape = ActiveSheet.Shature(PicLoopAdd.Shature) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Цей коментар був мінімізований модератором на сайті
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL