Přejít k hlavnímu obsahu

Jak vložit více obrázků a změnit jejich velikost najednou v aplikaci Excel?

Je pro nás snadné vložit jeden obrázek do aplikace Excel, ale pokud potřebujete vložit více obrázků najednou, abyste ušetřili mnoho času, jak byste to mohli udělat?


Vložte více obrázků a hromadně změňte jejich velikost pomocí funkce Vložit obrázek

Můžeme hromadně vložit více obrázků pomocí funkce (Vložit) Obrázek v aplikaci Excel a poté je současně změnit velikost. Postupujte prosím následovně:

1. V listu klikněte na Vložit > Obrázek.

2. V dialogovém okně Vložit obrázek otevřete složku obsahující obrázky, které vložíte, vyberte více obrázků podle potřeby a klikněte na ikonu Vložit knoflík. Viz screenshot:
Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících obrázků kliknutím na jeden po druhém; podíl směna můžete vybrat více sousedních obrázků kliknutím na první a poslední obrázek.

Nyní jsou obrázky hromadně vkládány a skládány do listu.

3. Ponechejte tyto obrázky vybrané a hromadně změňte jejich velikost zadáním nového čísla do obou Šířka a Výška krabice v Velikost skupina na Formát záložka. Viz snímek obrazovky:

Nyní jsou všechny vložené obrázky změněny současně na stejnou velikost.

4. V současné době musíte každý obrázek samostatně přesunout na vhodné místo.

Poznámka: Pokud se skládají desítky obrázků, bude docela časově náročné ručně je přesunout na vhodné místo.

Dávkově vložte více obrázků odpovídajících obsahu buněk v aplikaci Excel

Projekt Porovnat importované obrázky funkce Kutools pro Excel, je fantastický nástroj, který umožňuje dávkový import a vkládání více obrázků na základě obsahu buňky a snadno mění velikost importovaných obrázků stejně jako velikost buňky nebo na zadanou velikost.


dovážené obrázky s reklamami 01

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

Vložte více obrázků a hromadně změňte jejich velikost pomocí OneNotu

Aby se zabránilo přesouvání skládání obrázků jeden po druhém, zavádí tato metoda další trik pro vložení více obrázků pomocí OneNotu. Postupujte prosím následovně:

1. Spusťte OneNote a vytvořte novou stránku. A pak klikněte Vložit > Obrázek.

2. V dialogovém okně Vložit obrázek otevřete složku obsahující obrázky, které vložíte, vyberte více obrázků podle potřeby a klikněte na ikonu Vložit knoflík. Viz screenshot:
Poznámka: Držení Ctrl klíč, můžete vybrat více nesousedících obrázků kliknutím na jeden po druhém; podíl směna můžete vybrat více sousedních obrázků kliknutím na první a poslední obrázek.

doc vložte více obrázků OneNote 032

3. lis Ctrl + A vyberte všechny vložené obrázky ve OneNotu a poté stiskněte Ctrl + C klíče pro jejich kopírování.

4. Přejděte na list v aplikaci Excel a stiskněte Ctrl + V klávesy pro vložení obrázků do listu. Nyní jsou všechny obrázky vloženy svisle, jak je zobrazeno levé zobrazení obrazovky.

5. Vyberte některý z obrázků a stiskněte Ctrl + A vyberte je všechny. Poté hromadně změňte velikost obrázků zadáním nových čísel do obou Šířka a Výška krabice v Velikost skupina na Formát záložka. Viz snímek obrazovky:

Nyní jsou všechny zadané obrázky vloženy do aplikace Excel a jejich velikost je hromadně změněna na stejnou velikost.


Vložte více obrázků do aplikace Excel pomocí kódu VBA

S následujícím kódem VBA můžete vložit více obrázků do souboru aplikace Excel buňku po buňce.

1. Vyberte první buňku cílového rozsahu, do kterého chcete vložit obrázky.

2. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující makro do souboru Okno modulu.

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. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu.

5. V dialogovém okně Otevřít otevřete složku obsahující obrázky, které chcete vložit, vyberte více obrázků, které chcete vložit, a klikněte na Otevřená knoflík. A všechny vybrané obrázky byly importovány do vašeho výběru na základě velikosti buňky. Viz screenshot:


Vložte více obrázků a automaticky je upravte pomocí Kutools pro Excel

Kutools pro ExcelJe Importovat obrázky nástroj vám pomůže rychle vložit více obrázků do aplikace Excel na základě velikosti buňky nebo velikosti obrázku. Můžete také zadat výšku a šířku obrázků, jak potřebujete.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

1, klikněte Kutools Plus > Import Export > Importovat obrázky, viz screenshot:

2. V Importovat obrázky v dialogovém okně postupujte takto:
(1) Určete pořadí zobrazení obrázků z Importovat objednávku rozevírací seznam, můžete si vybrat Naplňte svisle buňku po buňce or Vyplňte vodorovně buňku za buňkou.
(2) Klepněte na tlačítko přidat tlačítko pro výběr obrazových souborů nebo složek pro přidání obrázků do seznamu obrázků. A všechny vaše vybrané obrázky budou uvedeny v seznamu.
(3) Klikněte na Velikost importu tlačítko;

3. Nyní v Importovat velikost obrázku V dialogovém okně si můžete vybrat velikost obrázku podle svých potřeb. Viz screenshot:

4. Po zadání velikosti obrázku klikněte OK zavřete toto dialogové okno a zpět do Importovat obrázky dialog, klepněte na tlačítko import tlačítko pro import obrázků.

5. V novém dialogovém okně Import obrázků vyberte první buňku cílového rozsahu, do kterého vložíte obrázky, a klikněte na OK .

V současné době byly všechny vaše vybrané obrázky vloženy do vašich buněk z aktivní buňky svisle nebo vodorovně. Viz pravý snímek obrazovky:

Projekt Importovat obrázky Funkce aplikace Kutools pro Excel je navržena tak, aby vkládala dávku obrázků současně s odpovídající velikostí buňky, zadanou velikostí nebo vlastní velikostí obrázků v aplikaci Excel. Vyzkoušejte zdarma!


Vložte více obrázků odpovídajících jejich jménům pomocí Kutools pro Excel

Kutools pro Excel také podporuje dramatický Porovnat importované obrázky funkce pro shodu obrázků a obsahu buněk a vkládání spárovaných obrázků pouze hromadně v aplikaci Excel.

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now

1. Vyberte buňky s názvy obrázků, do kterých chcete vložit odpovídající obrázky, a klikněte na Kutools Plus > Import Export > Porovnat importované obrázky. viz screenshot:

2. Ve vyskakovacím dialogovém okně Importovat obrázky shody postupujte takto:
(1) Určete pořadí zobrazení obrázků z Importovat objednávku rozbalovací seznam;
(2) Klepněte na tlačítko přidat tlačítko pro přidání obrázků do seznamu obrázků. Pro informaci budou vypsány pouze shodné obrázky.
(3) Poté klikněte Velikost importu .

3. Nyní v Importovat velikost obrázku V dialogovém okně můžete vybrat velikost obrázku podle svých potřeb a kliknout na Ok knoflík. Viz screenshot:

4. Nyní se vrátíte do Importovat obrázky dialog, klepněte na tlačítko import tlačítko pro import obrázků.

5. V rozbalovacím dialogu Match Import Pictures zadejte první buňku cílového rozsahu, do kterého vložíte obrázky, a klikněte na OK knoflík. Viz screenshot:

Zatím jsou všechny obrázky vkládány do buněk na základě jejich relativních jmen. Viz pravý snímek obrazovky:

Projekt Porovnat importované obrázky Funkce aplikace Kutools pro Excel může pomoci uživatelům aplikace Excel rychle filtrovat obrázky podle hodnot buněk a poté tyto obrázky hromadně vložit. Kromě toho lze u těchto shodných obrázků automaticky změnit velikost na zadanou velikost nebo velikost buňky. Vyzkoušejte zdarma!


Ukázka: Vložte více obrázků a změňte jejich velikost najednou v aplikaci Excel

Kutools pro Excel obsahuje více než 300 šikovných nástrojů pro Excel, které si můžete zdarma vyzkoušet bez omezení za 30 dní. Zkušební verze zdarma hned teď!      Kup teď!


Související články

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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