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

Hur infogar jag flera bilder och ändrar storlek på dem samtidigt i Excel?

Det är lätt för oss att infoga en bild i Excel, men om du behöver infoga flera bilder samtidigt så att det kan spara mycket tid, hur kan du göra det?


Infoga flera bilder och ändra storleken på dem med funktionen Infoga bild

Vi kan infoga flera bilder i bulk med funktionen (Infoga) Bild i Excel och sedan ändra storlek på dem samtidigt. Gör så här:

1. Klicka på i kalkylbladet Insert > Bild.

2. I dialogrutan Infoga bild öppnar du mappen som innehåller bilder du ska infoga, väljer flera bilder efter behov och klickar på Insert knapp. Se skärmdump:
Anmärkningar: Håller ctrl , kan du välja flera bilder som inte ligger intill varandra genom att klicka på dem en efter en; innehav shift kan du välja flera intilliggande bilder genom att klicka på den första och den sista bilden.

Nu infogas bilder i bulk och staplas i kalkylbladet.

3. Håll dessa bilder valda och ändra storleken på dem genom att ange nytt nummer i båda Bredd och Höjd rutorna i Storlek grupp på bildad flik. Se skärmdump:

Nu ändras alla infogade bilder till samma storlek samtidigt på en gång.

4. För närvarande måste du manuellt flytta varje bild separat till en lämplig plats.

Anmärkningar: Om det finns dussintals bilder som staplas kommer det att vara ganska tidskrävande att manuellt flytta dem för att passa platser.

Batch infoga flera bilder som matchar cellinnehållet i Excel

Du har nu möjlighet Matcha importera bilder funktionen i Kutools för Excel, är ett fantastiskt verktyg som kan importera och infoga flera bilder i batch baserat på cellinnehåll och enkelt ändra storlek på importerade bilder som cellstorlek eller till den angivna storleken.


annons matchar importerade bilder 01

Kutools för Excel - Innehåller mer än 300 praktiska verktyg för Excel. Fullständig gratis provperiod 30-dag, inget kreditkort krävs! Hämta den nu

Infoga flera bilder och ändra storleken på dem med OneNote

För att undvika att flytta staplingsbilder en efter en introducerar den här metoden ett annat trick för att infoga flera bilder med hjälp av OneNote. Gör så här:

1. Starta OneNote och skapa en ny sida. Och klicka sedan på Insert > Bild.

2. I dialogrutan Infoga bild öppnar du mappen som innehåller bilder du ska infoga, väljer flera bilder efter behov och klickar på Insert knapp. Se skärmdump:
Anmärkningar: Håller ctrl , kan du välja flera bilder som inte ligger intill varandra genom att klicka på dem en efter en; innehav shift kan du välja flera intilliggande bilder genom att klicka på den första och den sista bilden.

doc infoga flera bilder OneNote 032

3. Tryck ctrl + A för att välja alla infogade bilder i OneNote och tryck sedan på ctrl + C för att kopiera dem.

4. Gå till kalkylbladet i Excel och tryck på ctrl + V för att klistra in bilderna i kalkylbladet. Nu klistras alla bilder vertikalt som vänster skärmdump visas.

5. Välj någon av bilderna och tryck på ctrl + A för att välja alla. Ändra sedan storlek på bilderna i bulk genom att ange nya nummer i båda Bredd och Höjd rutorna i Storlek grupp på bildad flik. Se skärmdump:

Nu är alla angivna bilder infogade i Excel och storleksändras till samma storlek.


Infoga flera bilder i Excel med VBA-kod

Med följande VBA-kod kan du infoga flera bilder i Excel-fil cell för cell.

1. Välj den första cellen i destinationsområdet som du vill infoga bilder.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster.

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. Tryck sedan på F5 nyckel för att köra den här koden.

5. I dialogrutan Öppna öppnar du mappen som innehåller bilderna du vill infoga, markerar flera bilder du ska infoga och klickar på Öppen knapp. Och alla valda bilder har importerats till ditt val baserat på cellstorlek. Se skärmdump:


Infoga flera bilder och justera dem automatiskt med Kutools för Excel

Kutools för ExcelÄr Importera bilder verktyget kan hjälpa dig att snabbt infoga flera bilder i Excel baserat på cellstorlek eller bildstorlek. Du kan också ange bildens höjd och bredd efter behov.

Kutools för Excel - Innehåller mer än 300 praktiska verktyg för Excel. Fullständig gratis provperiod 30-dag, inget kreditkort krävs! Hämta den nu

1. Klicka Kutools Plus > Import Export > Importera bilder, se skärmdump:

2. I Importera bilder dialogrutan, gör så här:
(1) Ange visningsordning för bilder från Importera order rullgardinsmenyn kan du välja Fyll vertikalt cell efter cell or Fyll horisontellt cell efter cell.
(2) Klicka Lägg till för att välja bildfiler eller mapp för att lägga till bilderna i bildlistan. Och alla dina valda bilder kommer att listas i listrutan.
(3) Klicka på Importera storlek knapp;

3. Nu i Importera bildstorlek i dialogrutan kan du välja den bildstorlek som matchar ditt behov. Se skärmdump:

4. Klicka på när du har angett bildstorleken OK för att stänga denna dialog och tillbaka till Importera bilder dialog, klicka Importera för att importera bilderna.

5. I den nya dialogrutan Importera bilder, välj den första cellen i destinationsområdet som du ska infoga bilder och klicka på OK knapp.

För närvarande har alla dina valda bilder infogats i dina celler från den aktiva cellen vertikalt eller horisontellt. Se höger skärmdump:

Du har nu möjlighet Importera bilder funktionen i Kutools för Excel är utformad för att infoga en sats bilder samtidigt med matchande cellstorlek, specificerad storlek eller bildens egna storlekar i Excel. Ha en gratis testversion!


Infoga flera bilder som matchar deras namn med Kutools för Excel

Kutools för Excel stöder också en dramatisk Matcha importera bilder funktion för att matcha bilder och cellinnehåll och infoga matchade bilder endast i bulk i Excel.

Kutools för Excel - Innehåller mer än 300 praktiska verktyg för Excel. Fullständig gratis provperiod 30-dag, inget kreditkort krävs! Hämta den nu

1. Välj dina bildnamnsceller som du vill infoga deras matchande bilder och klicka på Kutools Plus > Import Export > Matcha importera bilder. se skärmdump:

2. I dialogrutan Match Importera bilder, gör följande:
(1) Ange visningsordning för bilder från Importera order rullgardinsmeny;
(2) Klicka Lägg till knappen för att lägga till bilderna i bildlistan. För din information listas endast matchade bilder.
(3) Klicka sedan på Importstorlek knapp.

3. Nu i Importera bildstorlek i dialogrutan kan du välja den bildstorlek som matchar ditt behov och klicka på Ok knapp. Se skärmdump:

4. Nu återvänder du till Importera bilder dialog, klicka Importera för att importera bilderna.

5. I dialogrutan Match Importera bilder, välj den första cellen i destinationsområdet som du ska infoga bilder och klicka på OK knapp. Se skärmdump:

Hittills är alla bilder infogade i cellerna baserat på deras relativa namn. Se höger skärmdump:

Du har nu möjlighet Matcha importera bilder funktionen i Kutools för Excel kan hjälpa Excel-användare att snabbt filtrera bilder baserat på cellvärden och sedan infoga dessa bilder i bulk. Dessutom kan dessa matchade bilder automatiskt ändras till den angivna storleken eller cellstorleken. Ha en gratis testversion!


Demo: Infoga flera bilder och ändra storlek på dem samtidigt i Excel

Kutools för Excel innehåller mer än 300 praktiska verktyg för Excel, gratis att prova utan begränsning i 30 dagar. Gratis testversion nu!      Köp nu!


Relaterade artiklar


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (47)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Instruktionerna med rubriken: Infoga flera bilder i Excel med VBA-kod är helt enkelt grymt snabbt och effektivt!!! detta är ett bra alternativ för att köpa och installera plugins. Detta är min första kommentar online!! beröm!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag kan använda modulen InsertPictures och fungerar korrekt så långt som jpg. Det vill dock inte fungera för PNG. Kan du ge råd? Hälsningar, Lawrence
Denna kommentar minimerades av moderatoren på webbplatsen
I det första ämnet "Infoga flera bilder i Excel med VBA-kod", hur infogar man en bild i två celler. till exempel kommer den första bilden att infogas i cell A1 och A2, den andra bilden kommer att infogas i cell A3 och A4 och så vidare.
Denna kommentar minimerades av moderatoren på webbplatsen
bra stöd för Excel.....ni gyus hjälper verkligen till att spara tid. tack
Denna kommentar minimerades av moderatoren på webbplatsen
Bra inlägg! Men jag har andra sätt att göra samma sak..... ===================================== ============ Sub ipic() Dim i Som heltal För i = 2 till 10 celler(i, 1). Välj Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Infoga("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Välj med markering .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1"). Välj End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det en version av Kuttools för Mac?
Denna kommentar minimerades av moderatoren på webbplatsen
Är det möjligt att modifiera den vba-koden för att infoga 4 bilder i ett rutnätsliknande mönster så här: pic1 i A1, pic2 i A2, pic3 i B1 och pic4 i B2? Tankar!
Denna kommentar minimerades av moderatoren på webbplatsen
strunt, jag hittade hur man gör :)
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, kan du dela med dig av den ändrade koden?
Denna kommentar minimerades av moderatoren på webbplatsen
Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Vid fel Återuppta Nästa PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex.IfCell = Application.ColumnCell = Application. IsArray(PicList) Sedan xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex, xColIndex) Set sShape = ActiveSheet.Shapes.AddPicture(PicList), msoFELSLIST , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Kan du hjälpa mig att ändra koden för att infoga den sammanslagna kolumnen och raden. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Vid fel Återuppta Nästa 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.Add(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
välj cellerna och ändra storlek på dem efter bredd och höjd enligt dina behov.. om du har tio bilder välj tio celler eller fler, välj fler..!! tryck sedan på Alt+F11, klicka sedan på INSERT, klicka sedan på MODUL, KLISTRA DOCK FÖLJANDE KOD SOM DEN ÄR.. Sub InsertPictures() 'Uppdatera 20140513 Dim PicList() Som variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next 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) Ange sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex = xRowIndex AFTER THE End If + 1 OVAN KOD TRYCK F5 .. VÄLJ SEN FILER FRÅN DATORN VAR DE NÅGON ÄR. UPP TILL DITT BEHOV. DÅ OM DU INTE SPARADE ARBETSBOKEN DÅ KOMMER DEN ATT BE ATT SPARA DEN. OM DU REDAN SPARAT DEN. DÅ ÄR DIT JOBB HOPPAS DETTA HJÄLPER.. Ali..!!
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket, det fungerar
Denna kommentar minimerades av moderatoren på webbplatsen
Hej EXcel Masters, jag har 2 excelark. En med mer än hundra bilder och beskrivning av bilden i nästa cell till den. Det andra bladet efter urval lämnade förmodligen med 40 beskrivning av det. Hur kan jag överföra bilderna till detta ark enligt mitt val. Tack al
Denna kommentar minimerades av moderatoren på webbplatsen
eller så använder du direkt image-xls . med detta Excel-tillägg kan du infoga obegränsat antal bilder i Excel-cellen, eller som en kommentar. det ändrar också storleken på dina bilder. och det är möjligt att beställa och filtrera ditt Excel-ark, inklusive bilderna!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag är Mac-användare och när jag väl kopierade koden till den nya modulen och kör den händer ingenting. Är det något jag måste göra i mac för att köra VBA-koden? Tack
Denna kommentar minimerades av moderatoren på webbplatsen
[quote]eller så använder du direkt image-xls . med detta Excel-tillägg kan du infoga obegränsat antal bilder i Excel-cellen, eller som en kommentar. det ändrar också storleken på dina bilder. och det är möjligt att beställa och filtrera ditt Excel-ark, inklusive bilderna!Av Armin[/quote] [quote]Instruktionerna med rubriken: Infoga flera bilder i Excel med VBA-kod är helt enkelt fantastiskt snabbt och effektivt!!! detta är ett bra alternativ för att köpa och installera plugins. Detta är min första kommentar online!! beröm!Av Rahul Gupta[/quote] Jag försökte detta och verkar fungera bra - men du kan inte beställa eller filtrera Excel-listan inklusive bilderna. bilderna är inte heller proportionellt skalade. så jag köpte image-xls - kostade lite, men gör allt jag behöver
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå! Någon anledning till varför "Sub InsertPictures()" inte skulle fungera i Excel 2003? Jag har redan lagt till referensen till Microsoft.Scripting.Runtime Tack på förhand Gilberto
Denna kommentar minimerades av moderatoren på webbplatsen
det är mycket till hjälp för mig. Det är så bra jobbat....... Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag provade koden på mitt kalkylblad och det fungerade perfekt. Tills jag försöker göra filter. Se att den sista bilden alltid kommer att visas på filterresultatet. någon som kan hjälpa?
Denna kommentar minimerades av moderatoren på webbplatsen
Genom att använda nedanstående VBA-program kan inte infoga bilden i sammanfogad cell, Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Vid fel Återuppta Nästa 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 Vänligen råd mig att ändra VBA:n .
Denna kommentar minimerades av moderatoren på webbplatsen
Hej allihop, det här är jättebra! Jag har följt dina tutorials ett tag nu. Det jag hoppades att du kunde hjälpa mig med är, hur ändrar jag detta från att klistra ner bilderna i en kolumn till över en rad? Och hur kan jag lägga till "Fullständigt filnamn (dvs exempel_bild.jpg)" till raden ovanför det. Rad 'A' : "Filnamn.jpg" Rad 'B' : "Bildminiatyr" Tack!!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag har lagt in bilderna med min egen VBE-kod. Och nu har jag försökt dela det med de andra, tyvärr kan de inte se bilderna..... Jag skulle vara tacksam om någon kunde berätta för mig vad jag saknar. Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Denna kod fungerar NÄSTAN för mina behov. Jag har 200 bilder, varje bild måste hamna på sitt eget ark. Hur går jag till väga?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kan jag ändra följande kod så att bilder fylls i ett valt cellintervall över flera kolumner och rader snarare än i på varandra följande celler i på varandra följande rader i samma kolumn? Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape Vid fel Återuppta Nästa 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.Add(PicList) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer på engelska
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL