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

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 szolgáltatása, egy fantasztikus eszköz, amely képes az importálást és a cellatartalom alapján több kép beillesztését, és az importált képek átméretezését könnyedén megegyezik a cellamérettel vagy a megadott méretig.


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

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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:


Helyezzen be több képet, és állítsa be őket automatikusan a Kutools for Excel programmal

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öbb mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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épcsomó beillesztését szolgálja, egyidejűleg a megfelelő cellamérettel, meghatározott méretűvel vagy a képek saját méretével az Excelben. Ingyenes próbaverziót!


Helyezzen be több, a nevüknek megfelelő képet az Kutools for Excel alkalmazásba

A Kutools for Excel drámát is támogat 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öbb mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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 szolgáltatása segíthet az Excel felhasználóknak a képek gyors szűrésében a cellaértékek alapján, majd ezeket a képeket tömegesen beszúrva. Ezenkívül ezek az egyeztetett 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 Excel-eszközt tartalmaz, korlátozás nélkül kipróbálható 30 nap. Ingyenes próba most!      Vásároljon most!


Kapcsolódó cikkek


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (47)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Az utasítások a következő címmel: Több kép beszúrása az Excelbe VBA kóddal egyszerűen fantasztikusan gyors és hatékony!!! ez egy jó alternatíva a bővítmények vásárlására és telepítésére. Ez az első online kommentem!! üdv !
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, tudom használni az InsertPictures modult, és jpg-ig megfelelően működik. De nem akar működni PNG esetén. Tudnál tanácsot adni? Üdvözlettel, Lawrence
A weboldal moderátora ezt a megjegyzést minimalizálta
Az első témakörben: "Több kép beillesztése az Excelbe VBA-kóddal" hogyan szúrhat be egy képet két cellába. például az első kép az A1 és A2 cellába, a második kép az A3 és A4 cellába, és így tovább.
A weboldal moderátora ezt a megjegyzést minimalizálta
jó támogatás az Excelhez.....te gyus valóban segít időt takarítani. Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyszerű bejegyzés! De van más módom is ugyanerre..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2–10 Cells(i, 1). Válassza a Dim picname As String lehetőséget picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Makró\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# Vége a következő tartománnyal("a1").Válassza ki az End Sub lehetőséget
A weboldal moderátora ezt a megjegyzést minimalizálta
Létezik a Kuttools for Mac verziója?
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges módosítani azt a vba kódot, hogy 4 képet szúrjon be egy rácsszerű mintába, így: pic1 az A1-ben, pic2 az A2-ben, pic3 a B1-ben és pic4 a B2-ben? Tankok!
A weboldal moderátora ezt a megjegyzést minimalizálta
mindegy, rájöttem, hogyan kell csinálni :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, megosztanád a módosított kódot?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub InsertPictures() 'Frissítés 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape Ashape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect) xActivlumn. IsArray(PicList) Ezután xRowIndex = Application.ActiveCell.Row for lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(Pictral,msoRuuse) , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Következő End If End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, segítsen nekem a kód módosításában az egyesített oszlop és sor beillesztéséhez. Sub InsertPictures() 'Frissítés 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape Ashape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect) x.CActivedex. Ha IsArray(PicList) oszlop, akkor xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set shape) = ActiveSheetLAdShape(Piclop Picist.Sha). , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Következő End If End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
jelölje ki a cellákat, és méretezze át őket szélesség és magasság szerint az Ön igényei szerint .. ha tíz képe van, válasszon tíz vagy több cellát, válassza ki a továbbiakat..!! majd nyomja le az Alt+F11 billentyűket, majd kattintson az INSERT gombra, majd kattintson a MODUL gombra, majd illessze be A KÖVETKEZŐ KÓDOT, AHOGY VAN! PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(RngList) Cellst xRowIndex, xColIndex) sShape beállítása = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xSorIndex vége + 20140513. Következő THE If End + 1TER A KÓD FELÜTT NYOMJA MEG az F5 billentyűt .. MAJD KIVÁLASZTJA A FÁJLOKAT A SZÁMÍTÓGÉPBŐL, HOGY VANNAK. SZÜKSÉGÜK MIG. AKKOR HA NEM MENTETTE A MUNKAFÜZETET, AKKOR KÉRJEN MENTÉSÉT. HA MÁR MEGMENTETTE. AKKOR A MUNKA AZ REMÉLÉS, EZ SEGÍT.. Ali..!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen, működik
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok EXcel Mesterek! Van 2 excel lapom. Egy több mint száz képpel és a kép leírásával a következő cellában. A másik lapon a kijelölés után valószínűleg 40 leírás maradt róla. Hogyan helyezhetem át a képeket erre a lapra a választásom szerint? Köszönöm al
A weboldal moderátora ezt a megjegyzést minimalizálta
vagy közvetlenül használja az image-xls fájlt. Ezzel az Excel bővítménnyel korlátlan számú képet szúrhat be az Excel cellába, vagy megjegyzésként. átméretezi a Képeket is. és lehetőség van Excel munkalap megrendelésére és szűrésére, beleértve a Képeket is!
A weboldal moderátora ezt a megjegyzést minimalizálta
Mac-felhasználó vagyok, és miután bemásoltam a kódot az új modulba, és elindítom, nem történik semmi. Van valami, amit csinálnom kell mac-en a VBA kód futtatásához? Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]vagy közvetlenül az image-xls-t használod. Ezzel az Excel bővítménnyel korlátlan számú képet szúrhat be az Excel cellába, vagy megjegyzésként. átméretezi a Képeket is. és lehetőség van Excel munkalap megrendelésére és szűrésére, beleértve a Képeket is!Írta: Armin[/quote] [quote]Az utasítások a következő címmel: Több kép beszúrása az Excelbe VBA kóddal egyszerűen fantasztikusan gyors és hatékony!!! ez egy jó alternatíva a bővítmények vásárlására és telepítésére. Ez az első online kommentem!! üdv !Írta: Rahul Gupta[/quote] Kipróbáltam, és úgy tűnik, hogy jól működik - de nem lehet rendelni vagy szűrni az Excel listát, beleértve a képeket. a képek sem arányosak. ezért vettem az image-xls-t - egy kicsit kerül, de minden, amire szükségem van
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló! Van valami oka annak, hogy a "Sub InsertPictures()" miért nem működik az Excel 2003-ban? Már hozzáadtam a Microsoft.Scripting.Runtime hivatkozást előre is köszönöm Gilberto
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon sokat segít nekem. Nagyon szép munka....... Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, kipróbáltam a kódot a táblázatomon, és tökéletesen működött. Amíg nem próbálok szűrőt csinálni. Állapítsa meg, hogy mindig az utolsó kép fog megjelenni a szűrő eredményeként. valaki tud segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Az alábbi VBA program használatával nem illeszthető be a kép az egyesített cellába, Sub InsertPictures() 'Frissítés 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim s Shape As Shape On Error Folytatás Következő PicList = Application.GPet c OpenFormat , 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,xColsIndex)(xColsIndex) = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Következő End If End Sub Kérem tanácsot a VBA módosításához .
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, ez nagyszerű! Már egy ideje követem az oktatóprogramjaidat. Abban reménykedtem, hogy tud nekem segíteni, hogyan változtathatom meg ezt a képek oszloponkénti leragasztásáról egy sor keresztben való elhelyezésére? És hogyan tudom hozzáadni a "Teljes fájlnevet (azaz example_image.jpg)" a felette lévő sorhoz. 'A' sor : "Fájlnév.jpg" 'B' sor : "Kép miniatűrje" Köszönjük!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé, a képeket a saját VBE kódommal illesztettem be. És most megpróbáltam megosztani a többiekkel, sajnos nem tudják megnézni a képeket..... Hálás lennék, ha valaki megmondaná, miről maradtam le. Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a kód SZINTE megfelel az igényeimnek. 200 képem van, mindegyik képnek a saját lapjára kell kerülnie. Hogyan fogok hozzá?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan módosíthatom a következő kódot úgy, hogy a képek egy kiválasztott cellatartományban legyenek feltöltve több oszlopban és sorban, ne pedig ugyanazon oszlop egymást követő soraiban lévő egymást követő cellákban? Sub InsertPictures() 'Frissítés 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape Ashape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect) x.CActivedex. Ha IsArray(PicList) oszlop, akkor xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set shape) = ActiveSheetLAdShape(Piclop Picist.Sha). , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Következő End If End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi