Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe voeg ik meerdere afbeeldingen in en verander ik ze in één keer in Excel?

Het is gemakkelijk voor ons om één afbeelding in Excel in te voegen, maar als u meerdere afbeeldingen tegelijk moet invoegen om veel tijd te besparen, hoe zou u dat dan kunnen doen?


Voeg meerdere afbeeldingen in en verklein ze in bulk met de functie Afbeelding invoegen

We kunnen meerdere afbeeldingen bulksgewijs invoegen met de (Insert) Picture-functie in Excel, en ze vervolgens tegelijkertijd vergroten of verkleinen. Ga als volgt te werk:

1. Klik in het werkblad op Invoegen > beeld.

2. Open in het dialoogvenster Afbeelding invoegen de map met afbeeldingen die u wilt invoegen, selecteer meerdere afbeeldingen die u nodig hebt en klik op Invoegen knop. Zie screenshot:
Opmerking:: Vasthouden Ctrl -toets, u kunt meerdere niet-aangrenzende afbeeldingen selecteren door er één voor één op te klikken; vasthouden Shift -toets, kunt u meerdere aangrenzende afbeeldingen selecteren door op de eerste afbeelding en de laatste te klikken.

Nu worden afbeeldingen in bulk ingevoegd en gestapeld in het werkblad.

3. Houd deze afbeeldingen geselecteerd en verklein ze in bulk door een nieuw nummer in beide in te voeren Breedte als Lengte dozen in de Maat groep op de Formaat tabblad. Zie screenshot:

Nu worden alle ingevoegde afbeeldingen tegelijk in hetzelfde formaat gewijzigd.

4. Momenteel moet u elke afbeelding afzonderlijk handmatig naar een geschikte plaats verplaatsen.

Opmerking:: Als er tientallen foto's op elkaar worden gestapeld, zal het behoorlijk tijdrovend zijn om ze handmatig naar de juiste plek te verplaatsen.

Batch voeg meerdere afbeeldingen in die overeenkomen met de celinhoud in Excel

Het Match afbeeldingen importeren functie van Kutools for Excel, is een fantastische tool die batchgewijs meerdere afbeeldingen kan importeren en invoegen op basis van celinhoud, en het formaat van geïmporteerde afbeeldingen eenvoudig kan aanpassen aan de celgrootte of naar de opgegeven grootte. Gratis proefperiode van 30 dagen met volledige functionaliteit!
advertentie match geïmporteerde foto's 01

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

Voeg meerdere afbeeldingen in en verklein ze in bulk met OneNote

Om te voorkomen dat gestapelde afbeeldingen één voor één worden verplaatst, introduceert deze methode nog een truc om meerdere afbeeldingen in te voegen met behulp van OneNote. Ga als volgt te werk:

1. Start OneNote en maak een nieuwe pagina. En klik dan Invoegen > beeld.

2. Open in het dialoogvenster Afbeelding invoegen de map met afbeeldingen die u wilt invoegen, selecteer meerdere afbeeldingen die u nodig hebt en klik op Invoegen knop. Zie screenshot:
Opmerking:: Vasthouden Ctrl -toets, u kunt meerdere niet-aangrenzende afbeeldingen selecteren door er één voor één op te klikken; vasthouden Shift -toets, kunt u meerdere aangrenzende afbeeldingen selecteren door op de eerste afbeelding en de laatste te klikken.

doc meerdere afbeeldingen invoegen OneNote 032

3. pers Ctrl + A toetsen om alle ingevoegde afbeeldingen in OneNote te selecteren en druk vervolgens op Ctrl + C sleutels om ze te kopiëren.

4. Ga naar het werkblad in Excel en druk op Ctrl + V toetsen om de afbeeldingen in het werkblad te plakken. Nu worden alle afbeeldingen verticaal geplakt zoals het linker screenshot wordt getoond.

5. Selecteer een van de afbeeldingen en druk op Ctrl + A toetsen om ze allemaal te selecteren. Pas vervolgens de grootte van de afbeeldingen in bulk aan door in beide nieuwe nummers in te voeren Breedte als Lengte dozen in de Maat groep op de Formaat tabblad. Zie screenshot:

Nu worden alle opgegeven afbeeldingen in Excel ingevoegd en in bulk verkleind naar dezelfde grootte.


Voeg meerdere afbeeldingen in Excel in met VBA-code

Met de volgende VBA-code kunt u meerdere afbeeldingen cel voor cel in het Excel-bestand invoegen.

1. Selecteer de eerste cel van het bestemmingsbereik waarin u afbeeldingen wilt invoegen.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

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. Druk vervolgens op F5 sleutel om deze code uit te voeren.

5. Open in het dialoogvenster Openen de map met de afbeeldingen die u wilt invoegen, selecteer meerdere afbeeldingen die u wilt invoegen en klik op de Open knop. En alle geselecteerde afbeeldingen zijn in uw selectie geïmporteerd op basis van de celgrootte. Zie screenshot:


Voeg meerdere afbeeldingen in en pas ze automatisch aan met Kutools voor Excel

Kutools for Excel's Afbeeldingen importeren hulpprogramma kan u helpen snel meerdere afbeeldingen in Excel in te voegen op basis van de celgrootte of afbeeldingsgrootte. U kunt ook de hoogte en breedte van de afbeeldingen specificeren.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. Klikken Kutools Plus > Import / Export > Afbeeldingen importeren, zie screenshot:

2. In de Afbeeldingen importeren dialoogvenster, doe dan als volgt:
(1) Specificeer de weergavevolgorde van afbeeldingen van de Importeer bestelling vervolgkeuzelijst, u kunt kiezen Vul verticaal cel na cel or Vul horizontaal cel na cel.
(2) Klik op Toevoegen om de afbeeldingsbestanden of map te selecteren om de afbeeldingen toe te voegen aan de afbeeldingenlijst. En al uw geselecteerde afbeeldingen worden weergegeven in de keuzelijst.
(3) Klik op het Import maat knop;

3. Nu in de Afbeeldingsgrootte importeren dialoogvenster kunt u de afbeeldingsgrootte kiezen die aan uw behoefte voldoet. Zie screenshot:

4. Nadat u de afbeeldingsgrootte heeft opgegeven, klikt u op OK om dit dialoogvenster te sluiten en terug naar het Afbeeldingen importeren dialoogvenster, klik import knop om de afbeeldingen te importeren.

5. Kies in het nieuwe dialoogvenster Afbeeldingen importeren de eerste cel van het doelbereik waarin u afbeeldingen wilt invoegen en klik op de OK knop.

Momenteel zijn al uw geselecteerde afbeeldingen verticaal of horizontaal vanuit de actieve cel in uw cellen ingevoegd. Zie rechter screenshot:

Het Afbeeldingen importeren functie van Kutools for Excel is ontworpen om een ​​batch afbeeldingen tegelijkertijd in te voegen met bijpassende celgrootte, opgegeven grootte of eigen formaten van afbeeldingen in Excel. Probeer gratis!


Voeg meerdere afbeeldingen in die overeenkomen met hun naam met Kutools voor Excel

Kutools voor Excel ondersteunt ook een dramatisch Match afbeeldingen importeren functie om afbeeldingen en celinhoud te matchen en overeenkomende afbeeldingen alleen in bulk in Excel in te voegen.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. Selecteer uw afbeeldingsnaamcellen waarin u hun overeenkomende afbeeldingen wilt invoegen, en klik op Kutools Plus > Import / Export > Match afbeeldingen importeren. zie screenshot:

2. Ga als volgt te werk in het uitgeklapte dialoogvenster Match Afbeeldingen importeren:
(1) Specificeer de weergavevolgorde van afbeeldingen van de Importeer bestelling keuzelijst;
(2) Klik op Toevoegen knop om de afbeeldingen toe te voegen aan de afbeeldingenlijst. Ter informatie worden alleen overeenkomende afbeeldingen weergegeven.
(3) Klik vervolgens Importgrootte knop.

3. Nu in de Afbeeldingsgrootte importeren dialoogvenster, kunt u de afbeeldingsgrootte kiezen die aan uw behoeften voldoet en op de Ok knop. Zie screenshot:

4. Nu keert u terug naar de Afbeeldingen importeren dialoogvenster, klik import knop om de afbeeldingen te importeren.

5. Geef in het pop-upvenster Match afbeeldingen importeren de eerste cel van het bestemmingsbereik op waarin u afbeeldingen wilt invoegen en klik op de OK knop. Zie screenshot:

Tot nu toe zijn alle afbeeldingen op basis van hun relatieve namen in de cellen ingevoegd. Zie rechter screenshot:

Het Match afbeeldingen importeren functie van Kutools for Excel kan Excel-gebruikers helpen om snel afbeeldingen te filteren op basis van celwaarden en deze afbeeldingen vervolgens bulksgewijs in te voegen. Bovendien kunnen deze overeenkomende afbeeldingen automatisch worden verkleind tot de opgegeven grootte of celgrootte. Probeer gratis!


Demo: voeg meerdere afbeeldingen in en verklein ze tegelijk in Excel

Kutools for Excel bevat meer dan 300 handige tools voor Excel, gratis te proberen zonder beperking in 30 dagen. Nu gratis proberen!      Koop nu!


Gerelateerde artikelen


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    chenhinhexcel · 4 months ago
    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. 
  • To post as a guest, your comment is unpublished.
    vind · 1 years ago
    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...
    • To post as a guest, your comment is unpublished.
      kellytte · 1 years ago
      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.
  • To post as a guest, your comment is unpublished.
    jlkiv80 · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Funzone13 · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Funzone13 · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Funzone13 · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    David · 2 years ago
    les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
    reitero mi agradecimiento
  • To post as a guest, your comment is unpublished.
    gedc2003@yahoo.com · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Drew Reyes · 2 years ago
    you are a legend
  • To post as a guest, your comment is unpublished.
    Marco Itaborahy · 2 years ago
    Muito Obrigado, foi muito útil.
  • To post as a guest, your comment is unpublished.
    Nael · 3 years ago
    Quality of pictures is reduced when using the Code while its quality was good when adding it without the macro
  • To post as a guest, your comment is unpublished.
    vincentwky92@gmail.com · 3 years ago
    How about adding the fit picture but maintain aspect ratio
    having trouble merging the following code:


    Public Sub FitPic()
    On Error GoTo NOT_SHAPE
    Dim PicWtoHRatio As Single
    Dim CellWtoHRatio As Single
    With Selection
    PicWtoHRatio = .Width / .Height
    End With
    With Selection.TopLeftCell
    CellWtoHRatio = .Width / .RowHeight
    End With
    Select Case PicWtoHRatio / CellWtoHRatio
    Case Is > 1
    With Selection
    .Width = .TopLeftCell.Width
    .Height = .Width / PicWtoHRatio
    End With
    Case Else
    With Selection
    .Height = .TopLeftCell.RowHeight
    .Width = .Height * PicWtoHRatio
    End With
    End Select
    With Selection
    .Top = .TopLeftCell.Top
    .Left = .TopLeftCell.Left
    End With
    Exit Sub
    NOT_SHAPE:
    MsgBox "Select a picture before running this macro."
    End Sub
  • To post as a guest, your comment is unpublished.
    SHAHBAZ · 3 years ago
    How can I modify the following code so that pictures are INSERT A1,B1,C1,D1
    PLEASE HELP
    • To post as a guest, your comment is unpublished.
      yam · 3 years ago
      Try this.
      ...

      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 )
      xColIndex = xColIndex
      Next

      ...
  • To post as a guest, your comment is unpublished.
    Javi · 3 years ago
    Amazing! Thank you!!
  • To post as a guest, your comment is unpublished.
    Mark · 4 years ago
    With the VBA how would I pull in an "image" that has multiple pages. In my example I am working with TIF files.
  • To post as a guest, your comment is unpublished.
    aloko · 4 years ago
    Hi
    good work
    but i face one problem
    this VBE code just work for normal cells
    can you modify it for merged cells
    you help is appreciated
  • To post as a guest, your comment is unpublished.
    Jason · 4 years ago
    How can I modify the following code so that pictures are populated in a selected range of cells across multiple columns and rows rather than in consecutive cells in successive rows in the same column?

    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.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 , xColIndex)
    Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
    xRowIndex = xRowIndex + 1
    Next
    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      Lucas Ricardo · 2 years ago
      Alguem conseguiu o codigo para a pergunta dele? estou precisando também!
  • To post as a guest, your comment is unpublished.
    Mitch · 4 years ago
    This code ALMOST works for my needs. I have 200 images, each image needs to go on it's own sheet. How do I go about that?
  • To post as a guest, your comment is unpublished.
    Divya · 4 years ago
    Hey,

    Ive inserted the pictures using my own VBE code. And now I've tried to share it with the others, unfortunately they are not able to see the pictures..... I would be grateful if anyone could tell me what am I missing.

    Thanks
  • To post as a guest, your comment is unpublished.
    Rich · 4 years ago
    Hey all,

    This is great! I have been following your tutorials for some time now.

    What I was hoping you could help me with is, how do I change this from sticking the images down a column to across a row?

    And how can I add the "Full File Name (i.e. example_image.jpg)" to the Row above it.

    Row 'A' : "Filename.jpg"
    Row 'B' : "Image Thumbnail"

    Thanks!!
  • To post as a guest, your comment is unpublished.
    Puru · 4 years ago
    Using below VBA program cant insert the picture in merged cell,

    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.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 , xColIndex)
    Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
    xRowIndex = xRowIndex + 1
    Next
    End If
    End Sub

    Please advice me to modify the VBA.
  • To post as a guest, your comment is unpublished.
    Saintimnot · 5 years ago
    Hi, I tried the code on my spreadsheet and it worked perfect. Till I try to do filter. Find that the last picture will always be shown on filter result. anyone able to help?
  • To post as a guest, your comment is unpublished.
    Muhammad Ali · 5 years ago
    it is very help ful me.
    It's so nice work.......
    Thanks
  • To post as a guest, your comment is unpublished.
    Gilberto · 5 years ago
    Hello!
    Any reason why "Sub InsertPictures()" would not work in Excel 2003?
    I have already added the reference to Microsoft.Scripting.Runtime

    Thanks in advance

    Gilberto
  • To post as a guest, your comment is unpublished.
    Karlo · 5 years ago
    [quote name="Armin"]or you use directly image-xls . with this Excel addin you're able to insert unlimited number of Pictures into Excel cell, or as a comment. it also resizes your Pictures. and it's possible to order and filter your Excel sheet, including the Pictures ![/quote]
    [quote name="Rahul Gupta"]The instructions with the heading : Insert multiple pictures into Excel with VBA code is simply awesome quick and effective !!! this is a good alternative to buy and install plugins.
    This is my first comment online !!
    kudos ![/quote]

    i tried this and seems to work fine - but you can't order or filter the Excel list including the pics. also the pics are not scaled proportional . so i bought image-xls - cost a bit , but does all i need
  • To post as a guest, your comment is unpublished.
    AJu · 5 years ago
    I am Mac user and once i copied the code into the new module and run it nothing happens. Is there something i have to do in mac in order to run the VBA code?
    Thanks
  • To post as a guest, your comment is unpublished.
    Armin · 5 years ago
    or you use directly image-xls . with this Excel addin you're able to insert unlimited number of Pictures into Excel cell, or as a comment. it also resizes your Pictures. and it's possible to order and filter your Excel sheet, including the Pictures !
  • To post as a guest, your comment is unpublished.
    edward · 5 years ago
    Hi EXcel Masters,

    I have 2 excel sheets. One with more than hundred Pictures and description of the picture in the next cell to it.

    The other sheet after selection probably left with 40 description of it. How can i transfer the pictures to this sheet as per my selection.

    Thanks al
  • To post as a guest, your comment is unpublished.
    Hadrian · 5 years ago
    Thanks a lot, it works
  • To post as a guest, your comment is unpublished.
    Eklezys · 6 years ago
    Is it possible to modify that vba code to insert 4 pictures in a grid-like patern like this: pic1 in A1, pic2 in A2, pic3 in B1 and pic4 in B2?
    Tanks!
    • To post as a guest, your comment is unpublished.
      Ali · 6 years ago
      select the cells and resize them by width and height as per ur needs..
      if you have ten pics select ten cells or more the select more..!!

      then press Alt+F11
      then click INSERT
      THEN click MODULE
      THEN PASTE THE FOLLOWING CODE AS IT IS..
      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

      AFTER THE ABOVE CODE PRESS F5 ..
      THEN SELECT THE FILES FROM THE COMPUTER WHERE EVER THEY ARE. UPTO UR NEED.
      THEN IF U NOT SAVED THE WORKBOOK THEN IT WILL ASK TO SAVE IT. IF U ALREADY SAVED IT . THEN UR JOB IS HOPE THIS HELPS..
      Ali..!!
    • To post as a guest, your comment is unpublished.
      Ali · 6 years ago
      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
      • To post as a guest, your comment is unpublished.
        Puru · 4 years ago
        Could you please help me to modify the code to insert the merged column and row.

        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.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 , xColIndex)
        Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
        Next
        End If
        End Sub
    • To post as a guest, your comment is unpublished.
      Eklezys · 6 years ago
      nevermind i found how to do It :)
      • To post as a guest, your comment is unpublished.
        please help · 6 years ago
        Hi, Could you please share the modified code?
  • To post as a guest, your comment is unpublished.
    TomW · 6 years ago
    Is there a version of Kuttools for Mac?
  • To post as a guest, your comment is unpublished.
    Ram · 7 years ago
    Great Post!
    But i got other ways of doing same thing.....
    ================================================
    Sub ipic()

    Dim i As Integer
    For i = 2 To 10

    Cells(i, 1).Select
    Dim picname As String
    picname = Cells(i, 2)

    ActiveSheet.Pictures.Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select

    With Selection
    .Left = ActiveCell.Left
    .Top = ActiveCell.Top
    .ShapeRange.LockAspectRatio = msoFalse
    .ShapeRange.Height = 34#
    .ShapeRange.Width = 80#
    End With

    Next
    Range("a1").Select

    End Sub
  • To post as a guest, your comment is unpublished.
    kapil · 7 years ago
    good support for Excel.....you gyus are really helping in saving time.
    thanks
  • To post as a guest, your comment is unpublished.
    Kirtan Patel · 7 years ago
    In the first topic "Insert multiple pictures into Excel with VBA code", how do insert one picture in two cells. for example, first picture will be inserted into cell A1 and A2, second picture will be inserted into cell A3 and A4 and so on.
  • To post as a guest, your comment is unpublished.
    Lawrence · 7 years ago
    Hi,

    I am able to use the InsertPictures module and works properly as far as jpg. It doesn't want to work for PNG though.

    Can you please advise?

    Regards,
    Lawrence
  • To post as a guest, your comment is unpublished.
    Rahul Gupta · 7 years ago
    The instructions with the heading : Insert multiple pictures into Excel with VBA code is simply awesome quick and effective !!! this is a good alternative to buy and install plugins.
    This is my first comment online !!
    kudos !