Ugrás a tartalomra

Hogyan lehet több képet beszúrni és átméretezni egyszerre az Excelben?

Könnyű számunkra egy képet beilleszteni az Excelbe, de ha egyszerre több képet kell beillesztenie, így sok időt spórolhat meg, hogyan tehetné?


Helyezzen be több képet, és méretezze át tömegesen a Kép beszúrása funkcióval

Több képet beilleszthetünk tömegesen az Excel (Beszúrás) Kép funkciójával, majd egyidejűleg átméretezhetjük őket. Kérjük, tegye a következőket:

1. A munkalapon kattintson a gombra betétlap > Kép.

2. A Kép beszúrása párbeszédpanelen nyissa meg a beillesztendő képeket tartalmazó mappát, válasszon ki több képet szükség szerint, majd kattintson a gombra betétlap gomb. Lásd a képernyőképet:
Megjegyzések: Tartás Ctrl gombot, kiválaszthat több, nem szomszédos képet, egyenként kattintva rájuk; holding műszak gombot, kiválaszthat több szomszédos képet az első és az utolsó képre kattintva.

Most a képeket tömegesen beszúrják és egymásra rakják a munkalapon.

3. Tartsa ezeket a képeket kijelölve, és méretezze át tömegesen úgy, hogy mindkét számba új számot ír be Szélesség és a Magasság dobozok a Méret csoport a kialakított fülre. Lásd a képernyőképet:

Most minden beillesztett kép egyszerre azonos méretre változik.

4. Jelenleg kézzel kell minden képet külön-külön mozgatni egy megfelelő helyre.

Megjegyzések: Ha több tucat kép van egymásra rakva, elég időigényes lesz azokat manuálisan áthelyezni a helyekre.

Kötegelt formában illesszen be több, a cellatartalommal egyező képet az Excelbe

A Match Import Képek A Kutools for Excel funkciója egy fantasztikus eszköz, amely képes köteggel importálni és beszúrni több képet a cellatartalom alapján, és könnyen átméretezheti az importált képeket a cella méretével vagy a megadott méretre.


hirdetési egyezés importált képek 01

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

Helyezzen be több képet, és méretezze át tömegesen a OneNote segítségével

A képek egymásra helyezésének elkerülése érdekében ez a módszer egy újabb trükköt vezet be, hogy több képet illesszen be a OneNote segítségével. Kérjük, tegye a következőket:

1. Indítsa el a OneNote alkalmazást, és hozzon létre egy új oldalt. Ezután kattintson betétlap > Kép.

2. A Kép beszúrása párbeszédpanelen nyissa meg a beillesztendő képeket tartalmazó mappát, válasszon ki több képet szükség szerint, majd kattintson a gombra betétlap gomb. Lásd a képernyőképet:
Megjegyzések: Tartás Ctrl gombot, kiválaszthat több, nem szomszédos képet, egyenként kattintva rájuk; holding műszak gombot, kiválaszthat több szomszédos képet az első és az utolsó képre kattintva.

doc több kép beszúrása OneNote 032

3. nyomja meg Ctrl + A gombokkal válassza ki az összes beszúrt képet a OneNote-ból, majd nyomja meg az gombot Ctrl + C gombok másolásához.

4. Menjen a munkalapra az Excel programban, és nyomja meg a gombot Ctrl + V gombokkal illessze be a képeket a munkalapra. Most az összes képet függőlegesen illesztjük be, ahogy a bal oldali képernyőkép látható.

5. Válassza ki a képek egyikét, majd nyomja meg az gombot Ctrl + A gombokat az összes kiválasztásához. Ezután méretezze át a képeket tömegesen úgy, hogy mindkét számba új számokat ír be Szélesség és a Magasság dobozok a Méret csoport a kialakított fülre. Lásd a képernyőképet:

Most az összes megadott képet beillesztik az Excelbe, és tömegesen átméretezik ugyanarra a méretre.


Helyezzen be több képet az Excelbe VBA kóddal

A következő VBA-kóddal cellákonként több képet is beszúrhat az Excel fájlba.

1. Válassza ki a céltartomány első celláját, ahová képeket szeretne beilleszteni.

2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő makrót a Modul ablak.

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához.

5. A Megnyitás párbeszédpanelen nyissa meg a mappát, amely tartalmazza a beilleszteni kívánt képeket, jelöljön ki több beillesztendő képet, majd kattintson a Nyisd ki gomb. És az összes kiválasztott képet a cellaméret alapján importáltuk a kiválasztásba. Lásd a képernyőképet:


Szúrjon be több képet, és állítsa be őket automatikusan a Kutools for Excel segítségével

Kutools az Excel számára'S Képek importálása segédprogram segítségével gyorsan beilleszthet több képet az Excelbe a cellaméret vagy a képméret alapján. Igény szerint megadhatja a képek magasságát és szélességét is.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. Kattints Kutools Plus > Import Export > Képek importálása, lásd a képernyőképet:

2. Az Képek importálása párbeszédpanelt, kérjük, tegye a következőket:
(1) Adja meg a képek megjelenítési sorrendjét a Rendelés importálása legördülő listából választhat Töltsön függőlegesen cellát cella után or Töltse vízszintesen a cellát cellák után.
(2) Kattintson hozzáad gombbal válassza ki a képfájlokat vagy a mappát, és adja hozzá a képeket a Képek listához. És az összes kiválasztott kép megjelenik a listamezőben.
(3) Kattintson a gombra Import méret gomb;

3. Most a Képméret importálása párbeszédpanelen kiválaszthatja az igényeinek megfelelő képméretet. Lásd a képernyőképet:

4. A képméret megadása után kattintson OK hogy bezárja ezt a párbeszédpanelt, és visszatér a Képek importálása párbeszédpanelen kattintson a gombra import gombot a képek importálásához.

5. Az új Képek importálása párbeszédpanelen válassza ki a céltartomány első celláját, ahová beilleszti a képeket, majd kattintson a gombra OK gombot.

Jelenleg az összes kiválasztott kép függőlegesen vagy vízszintesen be van illesztve a celláiba az aktív cellából. Lásd a jobb oldali képernyőképet:

A Képek importálása A Kutools for Excel funkciója egy köteg kép beszúrására szolgál egyidejűleg a megfelelő cellamérettel, megadott mérettel vagy a képek saját méretével az Excelben. Ingyenes próbaverziót!


Szúrjon be több, a nevüknek megfelelő képet a Kutools for Excel segítségével

A Kutools for Excel is támogatja a drámai Match Import Képek funkció a képek és a cellatartalmak egyezéséhez, és az illesztett képek csak tömegesen illeszthetők be az Excelbe.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. Jelölje ki azokat a képnév cellákat, amelyekbe be szeretné illeszteni a megfelelő képeket, majd kattintson a gombra Kutools Plus > Import Export > Match Import Képek. lásd a képernyőképet:

2. A felbukkanó Képek importálása párbeszédpanelen tegye a következőket:
(1) Adja meg a képek megjelenítési sorrendjét a Rendelés importálása legördülő lista;
(2) Kattintson hozzáad gombra kattintva hozzáadhatja a képeket a képlistához. Tájékoztatásul csak az illesztett képek kerülnek felsorolásra.
(3) Ezután kattintson Import méret gombot.

3. Most a Képméret importálása párbeszédpanelen kiválaszthatja az igényeinek megfelelő képméretet, és kattintson a gombra Ok gomb. Lásd a képernyőképet:

4. Most visszatér a Képek importálása párbeszédpanelen kattintson a gombra import gombot a képek importálásához.

5. A felbukkanó Képek importálása párbeszédpanelen adja meg a céltartomány első celláját, ahová beilleszti a képeket, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Eddig az összes kép relatív nevük alapján került be a cellákba. Lásd a jobb oldali képernyőképet:

A Match Import Képek A Kutools for Excel funkciója segíthet az Excel felhasználóknak gyorsan szűrni a képeket a cellaértékek alapján, majd tömegesen beilleszteni ezeket a képeket. Ezenkívül ezek az egyező képek automatikusan átméretezhetők a megadott méretre vagy cellaméretre. Ingyenes próbaverziót!


Bemutató: Több kép beszúrása és átméretezése egyszerre az Excelben

Kutools az Excel számára több mint 300 praktikus eszközt tartalmaz az Excel számára, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Ingyenes próba most!      Vásároljon most!


Kapcsolódó cikkek

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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