Gå til hovedindhold

Hvordan indsættes flere billeder og ændrer størrelsen på dem på én gang i Excel?

Det er let for os at indsætte et billede i Excel, men hvis du har brug for at indsætte flere billeder på én gang, så det kan spare meget tid, hvordan kan du gøre det?


Indsæt flere billeder, og tilpas størrelsen på dem ved hjælp af funktionen Indsæt billede

Vi kan indsætte flere billeder i bulk ved hjælp af funktionen (Indsæt) i Excel og derefter ændre størrelsen på dem samtidigt. Gør som følger:

1. Klik på regnearket indsatte > Billede.

2. I dialogboksen Indsæt billede skal du åbne den mappe, der indeholder billeder, du vil indsætte, vælge flere billeder efter behov, og klikke på indsatte knap. Se skærmbillede:
Bemærk: Holder Ctrl nøgle, kan du vælge flere ikke-tilstødende billeder ved at klikke på dem en efter en; holder Flytte kan du vælge flere tilstødende billeder ved at klikke på det første og det sidste billede.

Nu indsættes billeder samlet og stables i regnearket.

3. Hold disse billeder markeret, og tilpas størrelsen på dem ved at indtaste nyt nummer i begge Bredde , Højde kasser i Størrelse gruppe på dannet fanen. Se skærmbillede:

Nu ændres alle indsatte billeder til samme størrelse på én gang.

4. På nuværende tidspunkt skal du manuelt flytte hvert billede separat til et passende sted.

Bemærk: Hvis der er snesevis af billeder, der stabler, vil det være ret tidskrævende at manuelt flytte dem, så de passer til steder.

Batch indsæt flere billeder, der matcher celleindholdet i Excel

Match importbilleder funktion af Kutools for Excel, er et fantastisk værktøj, der kan batchimportere og indsætte flere billeder baseret på celleindhold og nemt ændre størrelse på importerede billeder med samme størrelse som til den angivne størrelse.


annonce matcher importerede billeder 01

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

Indsæt flere billeder, og tilpas dem i bulk med OneNote

For at undgå at flytte stablende billeder en efter en introducerer denne metode endnu et trick til at indsætte flere billeder ved hjælp af OneNote. Gør som følger:

1. Start OneNote, og opret en ny side. Og klik derefter på indsatte > Billede.

2. I dialogboksen Indsæt billede skal du åbne den mappe, der indeholder billeder, du vil indsætte, vælge flere billeder efter behov, og klikke på indsatte knap. Se skærmbillede:
Bemærk: Holder Ctrl nøgle, kan du vælge flere ikke-tilstødende billeder ved at klikke på dem en efter en; holder Flytte kan du vælge flere tilstødende billeder ved at klikke på det første og det sidste billede.

doc indsæt flere billeder OneNote 032

3. Trykke Ctrl + A for at vælge alle indsatte billeder i OneNote, og tryk derefter på Ctrl + C nøgler til at kopiere dem.

4. Gå til regnearket i Excel, og tryk på Ctrl + V nøgler til at indsætte billederne i regnearket. Nu er alle billeder indsat lodret som venstre skærmbillede vist.

5. Vælg et af billederne, og tryk på Ctrl + A for at vælge dem alle. Ændr derefter størrelsen på billederne i bulk ved at indtaste nye numre i begge Bredde , Højde kasser i Størrelse gruppe på dannet fanen. Se skærmbillede:

Nu er alle angivne billeder indsat i Excel og ændret størrelse på samme størrelse i bulk.


Indsæt flere billeder i Excel med VBA-kode

Med den følgende VBA-kode kan du indsætte flere billeder i Excel-fil celle for celle.

1. Vælg den første celle i destinationsområdet, som du vil indsætte billeder.

2. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende makro i Modul vindue.

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. Tryk derefter på F5 nøgle til at køre denne kode.

5. I dialogboksen Åbn skal du åbne mappen, der indeholder de billeder, du vil indsætte, vælge flere billeder, du vil indsætte, og klikke på Åbne knap. Og alle de valgte billeder er blevet importeret til dit valg baseret på cellestørrelsen. Se skærmbillede:


Indsæt flere billeder, og juster dem automatisk med Kutools til Excel

Kutools til Excel's Importer billeder hjælpeprogram kan hjælpe dig med hurtigt at indsætte flere billeder i Excel baseret på cellestørrelse eller billedstørrelse. Du kan også angive billedernes højde og bredde efter behov.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

1. Klik Kutools Plus > Import Eksport > Importer billeder, se skærmbillede:

2. I Importer billeder dialogboks, skal du gøre som følger:
(1) Angiv visningsrækkefølgen for billeder fra Importer ordre rulleliste, kan du vælge Fyld lodret celle efter celle or Fyld vandret celle efter celle.
(2) Klik Tilføj for at vælge billedfiler eller mappe for at tilføje billederne til billedlisten. Og alle dine valgte billeder vises i listeboksen.
(3) Klik på Importstørrelse knap;

3. Nu i Importer billedstørrelse dialog, kan du vælge den billedstørrelse, der passer til dit behov. Se skærmbillede:

4. Når du har angivet billedstørrelsen, skal du klikke OK for at lukke denne dialog og tilbage til Importer billeder dialog, klik Importere for at importere billederne.

5. I den nye dialogboks Importer billeder skal du vælge den første celle i destinationsområdet, du vil indsætte billeder, og klik på OK .

På nuværende tidspunkt er alle dine valgte billeder indsat i dine celler fra den aktive celle lodret eller vandret. Se højre skærmbillede:

Importer billeder funktion af Kutools til Excel er designet til at indsætte en batch af billeder samtidigt med matchende cellestørrelse, specificeret størrelse eller billeders egne størrelser i Excel. Få en gratis prøveperiode!


Indsæt flere billeder, der matcher deres navne med Kutools til Excel

Kutools til Excel understøtter også en dramatisk Match importbilleder funktion til at matche billeder og celleindhold og kun indsætte matchede billeder i bulk i Excel.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu

1. Vælg de billednavnsceller, som du vil indsætte deres matchende billeder, og klik på Kutools Plus > Import Eksport > Match importbilleder. se skærmbillede:

2. I dialogboksen Match importbilleder, der vises, skal du gøre som følger:
(1) Angiv visningsrækkefølgen for billeder fra Importer ordre rulleliste
(2) Klik Tilføj knap for at føje billederne til billedelisten. Til din information vises kun matchede billeder.
(3) Klik derefter på Importstørrelse .

3. Nu i Importer billedstørrelse dialog, kan du vælge den billedstørrelse, der passer til dit behov, og klikke på Ok knap. Se skærmbillede:

4. Nu vender du tilbage til Importer billeder dialog, klik Importere for at importere billederne.

5. I dialogboksen Match importbilleder, der vises, skal du angive den første celle i destinationsområdet, du vil indsætte billeder, og klikke på OK knap. Se skærmbillede:

Indtil videre er alle billeder indsat i cellerne baseret på deres relative navne. Se højre skærmbillede:

Match importbilleder funktion af Kutools til Excel kan hjælpe Excel-brugere med hurtigt at filtrere billeder baseret på celleværdier og derefter indsætte disse billeder i bulk. Derudover kan disse matchede billeder automatisk ændres til den angivne størrelse eller cellestørrelse. Få en gratis prøveperiode!


Demo: Indsæt flere billeder, og tilpas dem på én gang i Excel

Kutools til Excel indeholder mere end 300 praktiske værktøjer til Excel, gratis at prøve uden begrænsning om 30 dage. Gratis prøveperiode nu!      Køb nu!


Relaterede artikler

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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