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

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 og 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 - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! 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 og 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 - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! 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 - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! 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 i 30 dage. Gratis prøveperiode nu!      Køb nu!


Relaterede artikler


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
officetab bund
Sorter kommentarer efter
Kommentarer (47)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Instruktionerne med overskriften: Indsæt flere billeder i Excel med VBA-kode er simpelthen fantastisk hurtigt og effektivt !!! dette er et godt alternativ til at købe og installere plugins. Dette er min første kommentar online!! kudos !
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg er i stand til at bruge InsertPictures-modulet og fungerer korrekt så langt som jpg. Det ønsker dog ikke at fungere for PNG. Kan du rådgive? Med venlig hilsen Lawrence
Denne kommentar blev minimeret af moderatoren på webstedet
I det første emne "Indsæt flere billeder i Excel med VBA-kode", hvordan indsætter man et billede i to celler. f.eks. vil det første billede blive indsat i celle A1 og A2, det andet billede vil blive indsat i celle A3 og A4 og så videre.
Denne kommentar blev minimeret af moderatoren på webstedet
god support til Excel.....du hjælper virkelig med at spare tid. tak
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk indlæg! Men jeg har andre måder at gøre det samme på..... ===================================== ============ Sub ipic() Dim i Som heltal For i = 2 til 10 celler(i, 1).Vælg Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Indsæt("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Vælg med markering .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1"). Vælg End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en version af Kuttools til Mac?
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt at ændre den vba-kode til at indsætte 4 billeder i et gitterlignende mønster som dette: pic1 i A1, pic2 i A2, pic3 i B1 og pic4 i B2? Tanks!
Denne kommentar blev minimeret af moderatoren på webstedet
ligegyldigt jeg fandt ud af hvordan man gør det :)
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, kan du venligst dele den ændrede kode?
Denne kommentar blev minimeret af moderatoren på webstedet
Sub InsertPictures() 'Opdater 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Ved fejl Genoptag Næste PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex.ColumnCell = Application.ColumnCell = Application. IsArray(PicList) Derefter xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList), msorueCTList , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du hjælpe mig med at ændre koden for at indsætte den flettede kolonne og række. Sub InsertPictures() 'Opdater 20140513 Dim PicList() Som Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Ved fejl Genoptag Næste PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.Sha pes.Add. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
vælg cellerne og ændre størrelsen på dem efter bredde og højde efter dine behov.. hvis du har ti billeder, vælg ti celler eller flere, så vælg mere..!! tryk derefter på Alt+F11, klik derefter på INSERT, og klik derefter på MODUL, SÅ INDSÆT FØLGENDE KODE, SOM DEN ER.. 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 RowIndex xRowIndex, xColIndex) Indstil sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex = xRowIndex = xRowIndex AFTER THE End If + 1 OVER KODE TRYK F5 .. VÆLG SÅ FILERNE FRA COMPUTEREN, HVOR DE ER. OP TIL DIT BEHOV. SÅ HVIS DU IKKE GEMMER ARBEJDSBOGEN, SÅ BØR DEN OM OM AT GEMME DEN. HVIS DU ALLEREDE GEMT DEN. SÅ ER DIT JOB HÅBER DET HJÆLPER.. Ali..!!
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak, det virker
Denne kommentar blev minimeret af moderatoren på webstedet
Hej EXcel Masters, jeg har 2 excel-ark. En med mere end hundrede billeder og beskrivelse af billedet i næste celle til den. Det andet ark efter udvælgelse forlod sandsynligvis med 40 beskrivelse af det. Hvordan kan jeg overføre billederne til dette ark i henhold til mit valg. Tak al
Denne kommentar blev minimeret af moderatoren på webstedet
eller du bruger direkte image-xls . med dette Excel-tilføjelsesprogram er du i stand til at indsætte et ubegrænset antal billeder i Excel-cellen eller som en kommentar. det ændrer også størrelsen på dine billeder. og det er muligt at bestille og filtrere dit Excel-ark, inklusive billederne!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er Mac-bruger, og når jeg først har kopieret koden ind i det nye modul og kørt det, sker der ikke noget. Er der noget jeg skal gøre i mac for at køre VBA-koden? Tak
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]eller du bruger direkte image-xls . med dette Excel-tilføjelsesprogram er du i stand til at indsætte et ubegrænset antal billeder i Excel-cellen eller som en kommentar. det ændrer også størrelsen på dine billeder. og det er muligt at bestille og filtrere dit Excel-ark, inklusive billederne!Af Armin[/quote] [quote]Instruktionerne med overskriften: Indsæt flere billeder i Excel med VBA-kode er simpelthen fantastisk hurtigt og effektivt !!! dette er et godt alternativ til at købe og installere plugins. Dette er min første kommentar online!! kudos !Af Rahul Gupta[/quote] Jeg prøvede dette og ser ud til at fungere fint - men du kan ikke bestille eller filtrere Excel-listen inklusive billederne. også billederne er ikke skaleret proportionalt. så jeg købte image-xls - koster lidt, men gør alt hvad jeg har brug for
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Enhver grund til, at "Sub InsertPictures()" ikke ville fungere i Excel 2003? Jeg har allerede tilføjet referencen til Microsoft.Scripting.Runtime På forhånd tak Gilberto
Denne kommentar blev minimeret af moderatoren på webstedet
det er meget hjælpsomt for mig. Det er så flot arbejde....... Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg prøvede koden på mit regneark, og det fungerede perfekt. Indtil jeg prøver at lave filter. Find ud af, at det sidste billede altid vil blive vist på filterresultatet. nogen der kan hjælpe?
Denne kommentar blev minimeret af moderatoren på webstedet
Brug af nedenstående VBA-program kan ikke indsætte billedet i flettet celle, Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Ved fejl Genoptag Næste PicList = Application.Get OpenFilename(Pi cFormat) , 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(xRowIndex) xColsIndex = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Venligst råd mig til at ændre VBA'en .
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle sammen, det er fantastisk! Jeg har fulgt dine tutorials i nogen tid nu. Det, jeg håbede, du kunne hjælpe mig med, er, hvordan ændrer jeg dette fra at stikke billederne ned i en kolonne til på tværs af en række? Og hvordan kan jeg tilføje "Fuld filnavn (dvs. eksempel_billede.jpg)" til rækken over det. Række 'A' : "Filnavn.jpg" Række 'B' : "Billedminiature" Tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har indsat billederne ved hjælp af min egen VBE-kode. Og nu har jeg prøvet at dele det med de andre, de kan desværre ikke se billederne..... Jeg ville være taknemmelig hvis nogen kunne fortælle mig hvad jeg mangler. Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Denne kode fungerer NÆSTEN til mine behov. Jeg har 200 billeder, hvert billede skal på sit eget ark. Hvordan gør jeg det?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan jeg ændre følgende kode, så billeder er udfyldt i et udvalgt celleområde på tværs af flere kolonner og rækker i stedet for i på hinanden følgende celler i på hinanden følgende rækker i samme kolonne? Sub InsertPictures() 'Opdater 20140513 Dim PicList() Som Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Ved fejl Genoptag Næste PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application. Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.Sha pes.Add. , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Alguem conseguiu eller codigo for a pergunta dele? estou precisando também!
Der er endnu ingen kommentarer her
Load More

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL