Preskoči na glavno vsebino

Kako v Excel vstaviti več slik in jih hkrati spremeniti?

V Excel lahko enostavno vstavimo eno sliko, če pa morate hkrati vstaviti več slik, da lahko prihranite veliko časa, kako bi to lahko storili?


Vstavite več slik in jih v velikem obsegu spremenite s funkcijo Vstavi sliko

S funkcijo (Vstavi) slike v Excelu lahko v velikem obsegu vstavimo več slik, nato pa jih hkrati spremenimo. Naredite naslednje:

1. Na delovnem listu kliknite Vstavi > Slika.

2. V pogovornem oknu Vstavi sliko odprite mapo s slikami, ki jih boste vstavili, izberite več slik, kot jih potrebujete, in kliknite Vstavi . Oglejte si posnetek zaslona:
Opombe: Držati Ctrl tipko, lahko izberete več sosednjih slik, tako da jih kliknete eno za drugo; držati Shift tipko, lahko izberete več sosednjih slik s klikom na prvo in zadnjo sliko.

Zdaj se slike vstavijo v velikem obsegu in zložijo na delovni list.

3. Te slike naj bodo izbrane in jih veliko spremenite tako, da v obe vnesete novo številko Širina in Višina polja v Velikosti skupina na oblikovana zavihek. Oglejte si posnetek zaslona:

Zdaj se vse vstavljene slike hkrati spremenijo v isto velikost hkrati.

4. Trenutno morate vsako sliko ločeno premakniti na primerno mesto.

Opombe: Če je slik na desetine, bo trajanje ročnega premikanja na ustrezna mesta precej zamudno.

Paket vstavi več slik, ki se ujemajo z vsebino celic v Excelu

O Ujemi uvozne slike Funkcija Kutools za Excel je fantastično orodje, ki lahko serijsko uvozi in vstavi več slik na podlagi vsebine celice ter uvožene slike enostavno spremeni v velikost celice ali na določeno velikost.


ujemanje slik uvoženih slik 01

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

Vstavite več slik in jih v velikem obsegu spremenite z OneNote

Da bi se izognili premikanju zloženih slik eno za drugo, ta metoda uvaja še en trik za vstavljanje več slik s pomočjo OneNote. Naredite naslednje:

1. Zaženite OneNote in ustvarite novo stran. In nato kliknite Vstavi > Slika.

2. V pogovornem oknu Vstavi sliko odprite mapo s slikami, ki jih boste vstavili, izberite več slik, kot jih potrebujete, in kliknite Vstavi . Oglejte si posnetek zaslona:
Opombe: Držati Ctrl tipko, lahko izberete več sosednjih slik, tako da jih kliknete eno za drugo; držati Shift tipko, lahko izberete več sosednjih slik s klikom na prvo in zadnjo sliko.

doc vstavi več slik OneNote 032

3. Pritisnite Ctrl + A tipke izberite vse vstavljene slike v programu OneNote in pritisnite Ctrl + C tipke za njihovo kopiranje.

4. Odprite delovni list v Excelu in pritisnite Ctrl + V tipke za lepljenje slik na delovni list. Zdaj so vse slike prilepljene navpično, kot je prikazano na levi sliki zaslona.

5. Izberite katero koli sliko in pritisnite Ctrl + A tipke, da jih izberete. Nato velikost slik spremenite v velikem obsegu tako, da v obe vnesete nove številke Širina in Višina polja v Velikosti skupina na oblikovana zavihek. Oglejte si posnetek zaslona:

Zdaj so vse določene slike vstavljene v Excel in v velikem obsegu spremenjene na velikost.


V Excel vstavite več slik s kodo VBA

Z naslednjo kodo VBA lahko v Excel datoteko celico po celico vstavite več slik.

1. Izberite prvo celico ciljnega obsega, v katero želite vstaviti slike.

2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

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. Nato pritisnite F5 tipko za zagon te kode.

5. V pogovornem oknu Odpri odprite mapo s slikami, ki jih želite vstaviti, izberite več slik, ki jih boste vstavili, in kliknite Odprto . Vse izbrane slike so bile uvožene v vaš izbor glede na velikost celice. Oglejte si posnetek zaslona:


Vstavite več slik in jih samodejno prilagodite s programom Kutools za Excel

Kutools za ExcelJe Uvozi slike pripomoček vam lahko pomaga hitro vstaviti več slik v Excel glede na velikost celice ali velikost slike. Po potrebi lahko določite tudi višino in širino slik.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

1. Kliknite Kutools Plus > Uvozno-izvoznih > Uvozi slike, glej posnetek zaslona:

2. v Uvozi slike pogovorno okno, naredite naslednje:
(1) Določite vrstni red prikaza slik iz Uvozno naročilo spustnega seznama, lahko izberete Napolnite navpično celico za celico or Polni vodoravno celico za celico.
(2) Kliknite Dodaj gumb, da izberete slikovne datoteke ali mapo, da jih dodate na seznam slik. Vse izbrane slike bodo navedene v seznamskem polju.
(3) Kliknite Velikost uvoza gumb;

3. Zdaj v Uvozi velikost slike lahko izberete velikost slike, ki ustreza vašim potrebam. Oglejte si posnetek zaslona:

4. Po določitvi velikosti slike kliknite OK , da zaprete to pogovorno okno in se vrnete na Uvozi slike dialog, kliknite uvoz za uvoz slik.

5. V novem pogovornem oknu Uvozi slike izberite prvo celico ciljnega obsega, v katero boste vstavili slike, in kliknite OK gumb.

Trenutno so vse izbrane slike iz aktivne celice vstavljene v celice navpično ali vodoravno. Oglejte si desni posnetek zaslona:

O Uvozi slike Funkcija Kutools za Excel je namenjena vstavljanju serije slik hkrati z ujemajočo se velikostjo celice, določeno velikostjo ali lastnimi velikostmi slik v Excelu. Brezplačno preskusite!


Z Kutools za Excel vstavite več slik, ki se ujemajo z njihovimi imeni

Kutools za Excel podpira tudi dramatično Ujemi uvozne slike funkcija za ujemanje slik in vsebine celic ter ujemanje ustreznih slik samo v velikem obsegu v Excelu.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

1. Izberite celice z imenom slike, v katere želite vstaviti njihove ustrezne slike, in kliknite Kutools Plus > Uvozno-izvoznih > Ujemi uvozne slike. glej posnetek zaslona:

2. V pojavnem pogovornem oknu Match Import Pictures naredite naslednje:
(1) Določite vrstni red prikaza slik iz Uvozno naročilo spustni seznam;
(2) Kliknite Dodaj , da dodate slike v polje s seznamom slik. Za vašo informacijo bodo prikazane samo slike, ki se ujemajo.
(3) Nato kliknite Velikost uvoza gumb.

3. Zdaj v Uvozi velikost slike v pogovornem oknu lahko izberete velikost slike, ki ustreza vašim potrebam, in kliknete Ok . Oglejte si posnetek zaslona:

4. Zdaj se vrnete na Uvozi slike dialog, kliknite uvoz za uvoz slik.

5. V pojavnem pogovornem oknu Match Import Pictures določite prvo celico ciljnega obsega, v katero boste vstavili slike, in kliknite OK . Oglejte si posnetek zaslona:

Zaenkrat so vse slike vstavljene v celice na podlagi njihovih relativnih imen. Oglejte si desni posnetek zaslona:

O Ujemi uvozne slike Funkcija Kutools za Excel lahko uporabnikom Excela pomaga hitro filtrirati slike glede na vrednosti celic in jih nato vstaviti v velikem obsegu. Poleg tega je mogoče te usklajene slike samodejno prilagoditi na določeno velikost ali velikost celice. Brezplačno preskusite!


Predstavitev: vstavite več slik in jih hkrati spremenite v Excelu

Kutools za Excel vsebuje več kot 300 priročnih orodij za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. Brezplačna preizkusna različica zdaj!      Kupi zdaj!


Sorodni članki

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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