Excel-afbeeldingen: Meerdere afbeeldingen of foto's invoegen, aanpassen, opslaan en verwijderen in Excel

Voor de meesten van ons is het eenvoudig om afbeeldingen die op de computer zijn opgeslagen in het werkblad te plaatsen. Volg deze stappen:

1. Klik in het werkblad op de plek waar u de afbeeldingen wilt invoegen.

2. Klik vervolgens op Invoegen > Afbeeldingen > Dit apparaat, zie screenshot:

3. In het geopende venster Afbeelding invoegen, open de map met de gewenste afbeeldingen en houd de Ctrl-toets ingedrukt om de afbeeldingen te selecteren die u wilt invoegen, zie screenshot:

4. Klik daarna op de knop Invoegen; de geselecteerde afbeeldingen zijn nu in het blad geplaatst. U kunt de afbeeldingen nu naar wens aanpassen of schalen naar de gewenste cellen, zie screenshot:

Als u Excel2013 of nieuwer heeft, kunt u afbeeldingen vanaf het web of OneDrive invoegen. Volg hiervoor deze stappen:

1. Klik in het werkblad op de plek waar u de afbeeldingen wilt invoegen.

2. Klik vervolgens op Invoegen > Afbeeldingen > Online afbeeldingen, zie screenshot:

3. Er verschijnt een venster. Typ in het gedeelte Online afbeeldingen uw zoekopdracht in het tekstvak en druk op Enter. Alle bijbehorende afbeeldingen worden direct opgehaald, zie screenshot:

4. Selecteer vervolgens de gewenste afbeeldingen en klik op de knop Invoegen. Na het invoegen kunt u de afbeeldingen schalen of aanpassen naar de gewenste positie.

De onderstaande VBA-code helpt u om meerdere afbeeldingen in cellen te plaatsen op basis van de celgrootte. Volg deze stappen:

1. Pas de celgrootte aan waarin u de afbeelding wilt plaatsen en selecteer vervolgens de cellen.

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de onderstaande macro in het modulevenster.

VBA-code: Meerdere afbeeldingen invoegen op basis van de celgrootte

Sub InsertPictures()
'Updateby Extendoffice
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 om deze code uit te voeren. In het Openen-venster kiest u de map met de afbeeldingen, selecteert u de gewenste afbeeldingen en klikt u op Openen. Alle geselecteerde afbeeldingen worden nu ingevoegd in uw selectie op basis van de celgrootte. Zie screenshot:

Als u niet vertrouwd bent met VBA-code, kunt u gebruikmaken van de krachtige functie – Afbeeldingen importeren van Kutools voor Excel. Met deze handige functie kunt u snel en eenvoudig meerdere afbeeldingen in cellen importeren.

1. Klik op Kutools Plus > Importeren & Exporteren > Afbeeldingen importeren, zie screenshot:

2. In het geopende dialoogvenster Afbeeldingen importeren voert u de volgende handelingen uit:

• Specificeer de afbeeldingsvolgorde via de keuzelijst Importvolgorde. U kunt kiezen voor Vullen per kolom, dan per rij of Vullen per rij, dan per kolom;
• Klik vervolgens op de knop Toevoegen om de afbeeldingsbestanden of map te selecteren en toe te voegen aan de Afbeeldingslijst;
• Klik op de knop Importgrootte. In het dialoogvenster Afbeelding importeren - Grootte selecteert u de optie Overeenkomende celgrootte.
• 

3. Na het instellen van de opties klikt u op Importeren. Vervolgens verschijnt er nog een venster Afbeeldingen importeren, waarin u de doelcellen opgeeft waarin u de afbeelding wilt plaatsen, zie screenshot:

4. Klik vervolgens op OK; alle geselecteerde afbeeldingen zijn nu ingevoegd en geschaald naar de grootte van de opgegeven cellen, zoals hieronder weergegeven:

Met de onderstaande VBA-code kunt u snel meerdere afbeeldingen invoegen die overeenkomen met hun naam. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande macro in het modulevenster.

VBA-code: Meerdere afbeeldingen invoegen op basis van hun naam

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Opmerking: In bovenstaande code kunt u de hoogte en breedte van de afbeelding aanpassen binnen de scripts “.ShapeRange.Height =60”, “.ShapeRange.Width =60” naar uw wens.

3. Druk vervolgens op F5 om deze code uit te voeren. In het geopende venster selecteert u de map met de afbeeldingen die u wilt invoegen, zie screenshot:

4. Klik vervolgens op OK; er verschijnt een promptvenster waarin u de cellen selecteert die de afbeeldingsnamen bevatten, zie screenshot:

5. Klik opnieuw op OK; er volgt nog een promptvenster waarin u de cellen selecteert waarin u de afbeeldingen wilt plaatsen, zie screenshot:

6. Klik tot slot op OK; de afbeeldingen zijn direct ingevoegd in de cellen op basis van hun naam, zie screenshot:

Als u Kutools voor Excel gebruikt, kunt u met de functie Overeenkomende afbeeldingen importeren snel en eenvoudig afbeeldingen invoegen op basis van de afbeeldingsnamen.

1. Klik op Kutools Plus > Importeren & Exporteren > Overeenkomende afbeeldingen importeren, zie screenshot:

2. In het geopende dialoogvenster Overeenkomende afbeelding importeren voert u de volgende handelingen uit:

• Specificeer de afbeeldingsvolgorde via de keuzelijst Importvolgorde. U kunt kiezen voor Vullen per kolom, dan per rij of Vullen per rij, dan per kolom;
• Selecteer vervolgens uit het tekstvak Overeenkomstbereik de afbeeldingsnamen waarop u de afbeeldingen wilt baseren;
• Klik vervolgens op de knop Toevoegen om de afbeeldingsbestanden of map te selecteren en toe te voegen aan de Afbeeldingslijst;
• Daarna dient u het afbeeldingsformaat op te geven. Klik op de knop Importgrootte en selecteer in het dialoogvenster Afbeelding importeren - Grootte het gewenste formaat.
• 

3. Na het instellen van de opties klikt u op Importeren, kies één cel of een lijst met cellen om de afbeeldingen te plaatsen in het geopende dialoogvenster Overeenkomende afbeeldingen importeren, zie screenshot:

4. Klik vervolgens op OK; alle afbeeldingen waarvan de naam overeenkomt met de celwaarden zijn ingevoegd, zie screenshot:

Gebruik de onderstaande VBA-code om afbeeldingen in te voegen op basis van een lijst met URL's.

1. Pas eerst de grootte van de aangrenzende cellen aan waarin u de afbeeldingen wilt plaatsen.

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de onderstaande macro in het modulevenster.

VBA-code: Afbeeldingen invoegen vanaf een lijst met URL's

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Opmerkingen: In bovenstaande code is A2:A5 het bereik met de URL-adressen waarvan u de afbeeldingen wilt ophalen; pas de celverwijzingen aan naar uw situatie.

4. Druk vervolgens op F5 om deze code uit te voeren. De bijbehorende afbeeldingen worden opgehaald uit de URL's, in de aangrenzende kolom geplaatst en gecentreerd in de cellen, zie screenshot:

Kutools voor Excel heeft een krachtige functie – Afbeeldingen invoegen vanaf pad (URL). Met deze tool worden de bijbehorende afbeeldingen snel en eenvoudig uit de URL's opgehaald.

1. Klik op Kutools > Invoegen > Afbeeldingen invoegen vanaf pad (URL), zie screenshot:

2. In het geopende dialoogvenster Afbeeldingen invoegen vanaf pad (URL) stelt u het volgende in:

• Selecteer de lijst met URL-cellen en het bereik waarin u de afbeeldingen wilt plaatsen;
• Specificeer het formaat van de afbeeldingen naar wens in het gedeelte Afbeeldingsgrootte.
• 

3. Klik vervolgens op Ok; alle afbeeldingen zijn nu opgehaald uit de URL's, zie screenshot:

U kunt de onderstaande VBA-code gebruiken om afbeeldingen in te voegen op basis van bestandslocaties.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in het modulevenster.

VBA-code: Afbeeldingen invoegen vanaf een bereik met bestandslocaties

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Na het invoegen van de bovenstaande code drukt u op F5 om deze uit te voeren. Er verschijnt een promptvenster waarin u de cellen met de bestandslocaties selecteert, zie screenshot:

4. Klik vervolgens op OK; alle afbeeldingen op basis van de bestandslocaties worden weergegeven in de volgende kolom, zoals hieronder weergegeven:

Met de functie Afbeeldingen invoegen vanaf pad (URL) van Kutools voor Excel kunt u ook eenvoudig afbeeldingen weergeven op basis van het bestandslocatiepad.

1. Klik op Kutools > Invoegen > Afbeeldingen invoegen vanaf pad (URL). Geef in het geopende dialoogvenster het bereik van de bestandslocaties, het bereik voor het plaatsen van de afbeeldingen en het gewenste afbeeldingsformaat op, zie screenshots:

2. Na het instellen van de opties klikt u op Ok; de afbeeldingen worden direct ingevoegd in de geselecteerde cellen, zie screenshot:

Tip: Soms overlapt de afbeelding het gegevensgebied van het werkblad, zoals hieronder weergegeven. Dit komt doordat de afbeelding te groot is en niet automatisch wordt geschaald naar het koptekst- of voettekstvak.

Om dit probleem op te lossen, hoeft u alleen de afbeelding in de koptekst of voettekst te schalen. Volg hiervoor de volgende stappen:

1. Klik in het koptekst- of voettekstvak waar de afbeelding staat en klik vervolgens op Afbeelding opmaken onder het tabblad Ontwerpen, zie screenshot:

2. In het dialoogvenster Afbeelding opmaken past u onder het tabblad Grootte de afmetingen van de afbeelding aan zodat deze in het koptekst- of voettekstvak past, zie screenshot:

3. Klik vervolgens op OK; het resultaat wordt nu weergegeven zoals gewenst.

1. Open het werkblad waarin u een achtergrondafbeelding wilt plaatsen.

2. Klik vervolgens op Pagina-indeling > Achtergrond, zie screenshot:

3. In het geopende venster Afbeeldingen invoegen kiest u een afbeelding vanaf uw computer, website of OneDrive, zie screenshot:

4. De afbeelding is nu als achtergrond in het werkblad geplaatst, zoals hieronder weergegeven:

Met bovenstaande methode kunt u de transparantie van de achtergrondafbeelding niet aanpassen. Als de achtergrondafbeelding erg donker is, kan het lastig zijn om de gegevens te lezen. In dit onderdeel leg ik uit hoe u een transparante afbeelding achter de cellen plaatst.

1. Klik op Invoegen > Vormen en selecteer een rechthoek, zie screenshot:

2. Teken vervolgens een vorm zo groot als nodig is in het actieve werkblad.

3. Na het tekenen van de vorm verschijnt het tabblad Hulpmiddelen voor tekenen in het lint. Klik vervolgens op Opmaak > Vormcontour > Geen contour, zie screenshot:

4. Klik vervolgens met de rechtermuisknop op de vorm en kies Vorm opmaken in het contextmenu, zie screenshot:

5. In het uitgebreide deelvenster Vorm opmaken, onder het tabblad Opvulling & lijn, voert u de volgende handelingen uit:

• Selecteer onder het Opvulling gedeelte de Afbeelding- of textuuropvulling optie;
• Klik op de knop Invoegen bij Afbeeldingsbron en kies een afbeelding die u wilt invoegen;
• Pas vervolgens de transparantie van de afbeelding aan naar wens in het gedeelte Transparantie.
• 

6. U ziet nu dat de vorm met afbeelding eruitziet als een achtergrondafbeelding, zoals hierboven weergegeven.

Opmerking: Na het invoegen van dit type achtergrondafbeelding kunt u geen tekst invoeren binnen het afbeeldingsgebied.

Beide bovenstaande methoden hebben hun beperkingen: met de eerste kunt u de transparantie niet aanpassen, met de tweede kunt u geen tekst invoeren in de cellen binnen het afbeeldingsgebied. Om deze problemen op te lossen, kunt u de functie Watermerk invoegen van Kutools voor Excel gebruiken.

1. Klik op Kutools > Invoegen > Watermerk invoegen, zie screenshot:

2. In het geopende dialoogvenster Watermerk invoegen selecteert u Afbeelding watermerk, klikt u op Afbeelding selecteren om een afbeelding te kiezen, geeft u de schaal op en vinkt u de optie Erosie aan, zie screenshot:

3. Klik vervolgens op Ok; de afbeelding is nu als achtergrondafbeelding in het werkblad geplaatst.

In Excel kunt u de functie Kopiëren als afbeelding gebruiken om een bereik van cellen als afbeelding te kopiëren en in te voegen.

1. Selecteer het bereik van cellen dat u als afbeelding wilt kopiëren en invoegen.

2. Klik vervolgens op Start > Kopiëren > Kopiëren als afbeelding, zie screenshot:

3. In het geopende dialoogvenster Afbeelding kopiëren selecteert u Afbeelding in het gedeelte Opmaak, zie screenshot:

4. Klik vervolgens op OK; druk nu op Ctrl + V om de afbeelding overal in het werkboek te plakken.

In Excel is er een Camera-tool waarmee u een foto kunt maken van geselecteerde gegevens en deze als afbeelding kunt plakken. Wanneer de originele gegevens wijzigen, wordt de gekopieerde afbeelding automatisch bijgewerkt.

U dient eerst de Camera op het lint weer te geven en deze vervolgens te gebruiken.

1. Klik op het pictogram Werkbalk Snelle toegang aanpassen en vervolgens op Meer opdrachten, zie screenshot:

2. In het geopende dialoogvenster Excel-opties voert u de volgende handelingen uit:

• Selecteer Alle opdrachten in de keuzelijst Opdrachten selecteren uit;
• Scroll vervolgens naar Camera in de lijst;
• Klik vervolgens op Toevoegen om deze tool toe te voegen aan de Werkbalk Snelle toegang;
• Klik tot slot op OK om dit venster te sluiten.
• 

3. De Camera-tool is nu zichtbaar op het lint, zie screenshot:

4. Selecteer vervolgens het bereik van cellen dat u als afbeelding wilt hebben.

5. Klik vervolgens op de Camera-tool, ga naar het werkblad en klik ergens; het gegevensbereik wordt als afbeelding ingevoegd, zoals in onderstaande demo:

Als u Kutools voor Excel gebruikt, kunt u met de functie AutoTekstbibliotheek de geselecteerde gegevens opslaan in de AutoTekstbibliotheek en deze later als afbeelding of tekst invoegen.

1. Selecteer het gegevensbereik dat u als afbeelding wilt invoegen.

2. Klik vervolgens op Kutools > Navigatie, zie screenshot:

3. In het uitgebreide navigatievenster klikt u op het pictogram AutoTekstbibliotheek en vervolgens op het pictogram Geselecteerde inhoud toevoegen aan AutoTekst, zie screenshot:

4. In het dialoogvenster Toevoegen aan AutoTekst geeft u een naam op voor dit item en selecteert u een groep waarin u het wilt plaatsen. Zie screenshot:

5. Klik vervolgens op Toevoegen om het aan het AutoTekst-venster toe te voegen. Wilt u dit bereik als afbeelding invoegen, klik dan op een cel om de afbeelding te plaatsen, zoek het opgeslagen item in het AutoTekst-venster en kies Invoegen als > Afbeelding (EMF) in de keuzelijst. Het gegevensbereik wordt nu als afbeelding in het blad geplaatst, zie screenshots:

Normaal gesproken kunt u in Excel een dynamisch benoemd bereik maken en vervolgens een gekoppelde afbeelding gebruiken om deze taak uit te voeren.

1. Maak eerst twee kolommen aan met productnamen en bijbehorende afbeeldingen, zie screenshot:

2. Maak vervolgens een keuzelijst voor de celwaarden. Klik op een cel om de keuzelijst te plaatsen, klik op Gegevens > Gegevensvalidatie > Gegevensvalidatie, zie screenshot:

3. In het geopende dialoogvenster Gegevensvalidatie kiest u onder het tabblad Instellingen de optie Lijst bij Toestaan en selecteert u de cellen voor de keuzelijst in het tekstvak Bron, zie screenshot:

4. Klik op OK; de keuzelijst met celwaarden is nu aangemaakt. Selecteer een item uit de keuzelijst, zie screenshot:

5. Klik vervolgens op Formules > Naam definiëren, zie screenshot:

6. In het dialoogvenster Nieuwe naam voert u de volgende handelingen uit:

• Voer in het Naam tekstvak de naam myimage in;
• Kopieer en plak vervolgens deze formule: =INDEX(Sheet11!$A$2:$B$6;VERGELIJKEN(Sheet11!$E$2;Sheet11!$A$2:$A$6;0);2) in het tekstvak Verwijst naar.

  

  Opmerking: In bovenstaande formule:

  • Sheet11!$A$2:$B$6: is het werkblad en bereik met de waarden en afbeeldingen die u wilt gebruiken;
  • Sheet11!$E$2: is de cel waarin u de keuzelijst heeft aangemaakt;
  • Sheet11!$A$2:$A$6: is de lijst met cellen waarop u de keuzelijst heeft gebaseerd;
  • Het getal2 is het kolomnummer met de afbeeldingen. Als uw afbeeldingen in kolom C staan, vult u3 in.

7. Klik vervolgens op OK; kopieer en plak de bijbehorende afbeelding op basis van de celwaarde in E2 vanuit het oorspronkelijke bereik naar cel F2, zie screenshot:

8. Selecteer vervolgens de afbeelding in cel F2 en voer deze formule =myimage (myimage is de bereiknaam die u in stap6 heeft aangemaakt) in de formulebalk in, zie screenshot:

9. Druk na het invoeren van de formule op Enter; nu wordt bij het kiezen van een item uit de keuzelijst direct de bijbehorende afbeelding weergegeven. Zie screenshot:

Bovenstaande methode kan lastig zijn voor velen. Hier introduceer ik een handige functie – Maak een afbeelding keuzelijst van Kutools voor Excel. Met deze tool maakt u eenvoudig meerdere keuzelijsten met bijbehorende afbeeldingen in slechts enkele klikken.

1. Maak eerst twee kolommen aan met productnamen en bijbehorende afbeeldingen in uw werkblad.

2. Klik vervolgens op Kutools > Keuzelijst > Maak een afbeelding keuzelijst, zie screenshot:

3. In het dialoogvenster Maak een afbeelding keuzelijst, als u de kolommen met waarden en afbeeldingen al heeft aangemaakt, kunt u stap1 overslaan. Selecteer vervolgens het oorspronkelijke gegevens- en afbeeldingsbereik en het uitvoerbereik, zie screenshot:

4. Klik vervolgens op Ok; de keuzelijsten met afbeeldingen zijn nu aangemaakt in de geselecteerde cellen. Bij het kiezen van een item uit de keuzelijst wordt direct de bijbehorende afbeelding weergegeven, zie onderstaande demo:

Normaal gesproken kunt u met de functie Opslaan als alle afbeeldingen uit het werkboek opslaan. Volg deze stappen:

1. Klik op Bestand > Opslaan als. Geef in het venster Opslaan als een map op voor de geëxporteerde bestanden en kies Webpagina (*.htm;*.html) bij Opslaan als type, zie screenshot:

2. Klik vervolgens op Opslaan. Ga naar de opgegeven map; u ziet twee bestanden: één HTML-bestand en een map met de afbeeldingen, grafieken of andere objecten uit het werkboek. Zie screenshot:

3. U kunt nu alleen de afbeeldingen naar een andere map slepen, afhankelijk van uw wensen.

Opmerking: Met deze Opslaan als-functie krijgt u elke afbeelding twee keer: één kleiner en één groter. U kunt dus de afbeeldingen met hogere resolutie opslaan als u dat wilt.

Om alle afbeeldingen uit een Excel-bestand op te slaan, kunt u ook de bestandsextensie wijzigen naar RAR. Volg deze stappen:

1. Wijzig de bestandsextensie van xlsx naar rar, zoals hieronder weergegeven:

2. Pak vervolgens het bestand uit; u ziet drie mappen en één bestand in de map, zie screenshot:

3. Klik vervolgens om de map xl te openen en open daarna de map media. Hier vindt u alle afbeeldingen zonder duplicaten, zie screenshot:

Als u Kutools voor Excel gebruikt, kunt u met de functie Grafiek exporteren snel specifieke objecten, zoals afbeeldingen, grafieken en vormen, exporteren naar een afbeeldingsformaat naar keuze.

1. Klik op Kutools Plus > Importeren & Exporteren > Grafiek exporteren, zie screenshot:

2. In het dialoogvenster Grafiek exporteren voert u de volgende handelingen uit:

• Kies de optie Afbeeldingen in de keuzelijst Type;
• Geef een map op om uw geëxporteerde afbeeldingen op te slaan;
• Kies vervolgens in de keuzelijst Exportformaat het gewenste formaat voor uw afbeeldingen.
• 

3. Klik tot slot op Ok; alle afbeeldingen in het huidige werkblad zijn opgeslagen in de door u opgegeven map, zie screenshot:

Om afbeeldingen uit het huidige werkblad te verwijderen, kunt u onderstaande VBA-code gebruiken. Volg deze stappen:

1. Activeer het werkblad met de afbeeldingen die u wilt verwijderen.

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module en plak de onderstaande macro in het modulevenster.

VBA-code: Alle afbeeldingen uit het huidige werkblad verwijderen

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Druk vervolgens op F5 om deze code uit te voeren; alle afbeeldingen in het actieve werkblad worden direct verwijderd.

Wilt u alleen afbeeldingen uit een specifiek bereik verwijderen, dan kunt u onderstaande eenvoudige code gebruiken.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande macro in het modulevenster.

VBA-code: Afbeeldingen verwijderen uit een bereik van cellen

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Opmerking: In bovenstaande code is B4:C6 het bereik waaruit u de afbeeldingen wilt verwijderen.

3. Druk vervolgens op F5 om deze code uit te voeren; de afbeeldingen in het geselecteerde bereik worden direct verwijderd, zie screenshots:

Als u Kutools voor Excel gebruikt, kunt u met de functie Illustraties & Objecten verwijderen snel afbeeldingen verwijderen uit een werkblad, geselecteerde bladen of het hele werkboek.

1. Klik op Kutools > Verwijderen > Illustraties & Objecten verwijderen, zie screenshot:

2. In het geopende dialoogvenster Illustraties & Objecten verwijderen vinkt u Afbeeldingen aan in het gedeelte Verwijderen en geeft u het bereik op waaruit u de afbeeldingen wilt verwijderen onder het gedeelte Zoeken in, zie screenshot:

3. Klik vervolgens op Ok; alle afbeeldingen worden verwijderd uit het werkblad, de geselecteerde werkbladen of het hele werkboek, afhankelijk van uw keuze.