Excel-afbeeldingen: meerdere afbeeldingen of plaatjes invoegen, wijzigen van grootte, opslaan en verwijderen in Excel

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

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

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

3. Selecteer in het venster Afbeelding invoegen de map met de afbeeldingen en houd de toets Ctrl ingedrukt om de gewenste afbeeldingen te selecteren, zie screenshot:

4. Klik daarna op de knop Invoegen. De geselecteerde afbeeldingen worden nu in het werkblad geplaatst. U kunt ze vervolgens aanpassen of schalen naar de gewenste cellen—zie screenshot:

Als u Excel 2013 of een nieuwere versie gebruikt, kunt u eenvoudig afbeeldingen van het web of OneDrive invoegen. Volg deze stappen:

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

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

3. Er verschijnt een venster. Typ uw zoekterm in het tekstvak onder de sectie Online afbeeldingen en druk op de toets Enter. Alle overeenkomende afbeeldingen worden direct gezocht, zie screenshot:

4. Selecteer de gewenste afbeeldingen en klik op de knop Invoegen. Na het invoegen kunt u de afbeeldingen naar wens schalen of positioneren.

Met de volgende VBA-code voegt u eenvoudig meerdere afbeeldingen in cellen in, automatisch aangepast aan de celgrootte. Volg deze stappen:

1. Pas de grootte van de cellen aan waarin u de afbeelding wilt plaatsen en selecteer vervolgens die cellen.

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

3. Klik op Invoegen > Module en plak de volgende macro in het venster Module.

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 de toets F5 om deze code uit te voeren. Selecteer in het venster Openen de map met de afbeeldingen, kies de gewenste afbeeldingen en klik op de knop Openen. Alle geselecteerde afbeeldingen zijn nu ingevoegd in uw selectie op basis van de celgrootte. Zie screenshot:

Bent u niet bekend met VBA-code? Gebruik dan de krachtige functie Afbeeldingen importeren van Kutools voor Excel. Met deze handige functie importeert u in een handomdraai meerdere afbeeldingen rechtstreeks in cellen.

1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Afbeeldingen importeren, zie screenshot:

2. Voer in het dialoogvenster Afbeeldingen importeren de volgende stappen uit:

• Geef de volgorde van de afbeeldingen op via de vervolgkeuzelijst Importvolgorde; u kunt kiezen tussen Vullen per kolom, dan per rijof Vullen per rij, dan per kolom;
• Klik vervolgens op de knop Toevoegenom de Afbeeldingsbestanden of map te selecteren waaraan u de afbeeldingen wilt toevoegen in de Afbeeldingslijst;
• Klik op de knop Importgrootte en selecteer in het dialoogvenster Afbeeldingsgrootte importeren de optie Overeenkomende celgrootte.
• 

3. Nadat u de instellingen hebt voltooid, klikt u op de knop Importeren. Vervolgens verschijnt het venster Afbeeldingen importeren; geef hierin de doelcellen op waarin u de afbeelding wilt importeren. Zie de screenshot:

4. Klik daarna op de knop OK. Alle geselecteerde afbeeldingen zijn nu ingevoegd en automatisch aangepast aan de grootte van de bijbehorende cellen, zoals te zien is in de onderstaande screenshot:

De volgende VBA-code helpt u snel meerdere afbeeldingen in te voegen die overeenkomen met hun bestandsnamen. Volg hiervoor de onderstaande stappen:

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

2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Meerdere afbeeldingen invoegen op basis van overeenkomende bestandsnamen

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 de bovenstaande code kunt u de hoogte en breedte van de afbeelding naar wens aanpassen in de regels „.ShapeRange.Height = 60” en „.ShapeRange.Width = 60”.

3. Druk vervolgens op de toets F5 om deze code uit te voeren. Selecteer in het geopende venster de map met de afbeeldingen die u wilt invoegen; zie schermafbeelding:

4. Klik daarna op de knop OK. Er verschijnt een dialoogvenster waarin u de cellen kunt selecteren die de afbeeldingsnaam bevatten; zie de schermafbeelding:

5. Klik nogmaals op de knop OK. Er verschijnt een nieuw dialoogvenster waarin u de cellen kunt selecteren waarin u de afbeeldingen wilt plaatsen; zie schermafbeelding:

6. Klik ten slotte op OK, waarna de afbeeldingen direct in de cellen worden ingevoegd op basis van hun bestandsnamen; zie schermafbeelding:

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

1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Overeenkomende afbeeldingen importeren; zie schermafbeelding:

2. Voer in het dialoogvenster Afbeelding importeren op basis van naam de volgende stappen uit:

• Geef de volgorde van de afbeeldingen op via de keuzelijst Importvolgorde; u kunt kiezen voor Vullen per kolom, dan per rijof Vullen per rij, dan per kolom;
• Selecteer vervolgens in het tekstvak Overeenkomstbereik de bestandsnamen van de afbeeldingen waarop u Afbeelding wilt invoegen.
• Klik daarna op de knop Toevoegenom de Afbeeldingsbestanden of map te selecteren waaraan u de afbeeldingen wilt toevoegen in de Afbeeldingslijst;
• Geef vervolgens de afbeeldingsgrootte op. Klik hiervoor op de knop Importgrootte en selecteer in het dialoogvenster Afbeeldingsgrootte importeren de gewenste afbeeldingsgrootte.
• 

3. Nadat u de instellingen heeft voltooid, klikt u op de knop Importeren. Selecteer vervolgens één cel of een reeks cellen als doellocatie voor de afbeeldingen in het dialoogvenster dat verschijnt; zie schermafbeelding: Overeenkomende afbeeldingen importeren.

4. Klik daarna op OK. Vervolgens worden alle afbeeldingen waarvan de bestandsnaam overeenkomt met de celwaarden ingevoegd; zie schermafbeelding:

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

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

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

3. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Afbeeldingen invoegen vanuit 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 de bovenstaande code is A2:A5 het celbereik met de URL-adressen waaruit u de afbeeldingen wilt ophalen. Pas de celverwijzingen aan aan uw eigen situatie.

4. Druk vervolgens op de toets F5 om deze code uit te voeren. De bijbehorende afbeeldingen worden dan opgehaald uit de URL’s en gecentreerd weergegeven in de aangrenzende kolom; zie schermafbeelding:

Kutools voor Excel beschikt over een indrukwekkende functie: Afbeeldingen invoegen vanuit pad (URL). Met dit handige hulpmiddel haalt u de bijbehorende afbeeldingen snel en eenvoudig op uit de URL’s.

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

2. Voer in het dialoogvenster Afbeeldingen invoegen vanaf pad (URL) de volgende instellingen uit:

• Selecteer de lijst met URL-cellen en een celbereik waarin u de afbeeldingen wilt plaatsen;
• Geef in de sectie Afbeeldingsgrootte de gewenste afbeeldingsgrootte op.
• 

3. Klik daarna op de knop Ok, waarna alle afbeeldingen uit de URL’s worden opgehaald; zie schermafbeelding:

U kunt de volgende VBA-code gebruiken om afbeeldingen in te voegen op basis van het bestandspad.

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

2. Klik op Invoegen > Module en plak vervolgens de volgende code in het Module-venster.

VBA-code: Afbeelding invoegen vanuit een bereik van Bestandspad

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. Nadat u de bovenstaande code hebt ingevoegd, drukt u op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u de cellen van het bestandspad kunt selecteren; zie schermafbeelding:

4. Klik daarna op de knop OK. Vervolgens worden alle afbeeldingen op basis van het bestandspad weergegeven in de volgende kolom, zoals te zien is op de schermafbeelding:

Met de functie Kutools voor Excel’s Afbeeldingen invoegen vanaf pad (URL) haalt u ook eenvoudig de bijbehorende afbeeldingen op uit het bestandspad.

1. Klik op Kutools > Invoegen > Afbeeldingen invoegen vanaf pad (URL). Geef in het dialoogvenster dat verschijnt het bestandspad-bereik op, het bereik voor het weergeven van de afbeeldingen en de afbeeldingsgrootte, zoals gewenst; zie schermafbeeldingen:

2. Nadat u de opties hebt ingesteld, klikt u op de knop Ok. De afbeeldingen worden dan direct in de geselecteerde cellen ingevoegd; zie schermafbeelding:

Tips: Soms ziet u dat de afbeelding overlapt met het gegevensgebied van het werkblad, zoals op de onderstaande schermafbeelding. Dat komt doordat de afbeelding te groot is en niet automatisch wordt aangepast aan de ruimte in de koptekst of voettekst.

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

1. Klik in de koptekst of voettekst waar de afbeelding zich bevindt en klik vervolgens op Afbeelding opmaken onder het tabblad Ontwerpen; zie schermafbeelding:

2. Pas in het dialoogvenster Afbeelding opmaken op het tabblad Grootte de afmetingen van de afbeelding aan, zodat deze past in het vak van de koptekst of voettekst; zie schermafbeelding:

3. Klik daarna op OK en ontvang direct het gewenste resultaat.

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

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

3. In het venster Afbeeldingen invoegen dat verschijnt, kiest u een afbeelding van uw computer, website of OneDrive—afhankelijk van wat u nodig hebt. Zie de schermafbeelding:

4. De afbeelding is nu als achtergrond in het werkblad ingevoegd, zoals te zien is op de onderstaande schermafbeelding:

Met bovenstaande methode kunt u de transparantie van de ingevoegde achtergrondafbeelding niet aanpassen. Als de kleur van de achtergrondafbeelding donker is, is het daardoor moeilijk om de gegevens in het werkblad goed te lezen. In dit gedeelte leg ik uit hoe u een transparante afbeelding achter de cellen kunt plaatsen.

1. Klik op Invoegen > Vormen en selecteer een rechthoekige vorm. Zie de schermafbeelding:

2. Teken daarna een vorm in het actieve werkblad met de gewenste afmetingen.

3. Nadat u de vorm heeft getekend, verschijnt het tabblad Hulpmiddelen voor tekenen in het lint. Klik vervolgens op Opmaak > Vormomlijning > Geen omlijning. Zie schermafbeelding:

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

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

• Selecteer onder de sectie Opvullingde optie Afbeelding of textuuroverloop;
• Klik op de knop Invoegenin het gedeelte Afbeeldingsbron, en kies de afbeelding die u wilt invoegen;
• Pas vervolgens de transparantie van de afbeelding naar wens aan in de sectie Transparantie.
• 

6. U ziet nu dat de vorm, gevuld met een afbeelding, eruitziet als een achtergrondafbeelding—zoals te zien is op de bovenstaande schermafbeelding.

Opmerking: Nadat u dit type achtergrondafbeelding hebt ingevoegd, kunt u binnen het bereik van de afbeelding geen tekst meer invoeren.

Beide bovenstaande methoden hebben hun eigen beperkingen: met de eerste methode kunt u de transparantie van de afbeelding niet aanpassen, en met de tweede methode kunt u geen tekst invoeren in cellen binnen het gebied van de afbeelding. Om deze problemen op te lossen, helpt u de Kutools voor Excel’s Watermerk invoegen-functie.

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

2. Selecteer in het venster Watermerk invoegen dat verschijnt Afbeelding watermerk en klik vervolgens op de knop Afbeelding selecteren om een afbeelding te kiezen die u wilt invoegen. Geef daarna de schaalgrootte van de afbeelding op en schakel de optie Verbleken in, zie schermafbeelding:

3. Klik vervolgens op de knop OK; de afbeelding is nu als achtergrondafbeelding in het werkblad ingevoegd.

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

1. Selecteer het celbereik dat u als afbeelding wilt kopiëren en plakken.

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

3. Selecteer in het dialoogvenster Afbeelding kopiëren dat verschijnt, Afbeelding in de sectie Indeling. Zie schermafbeelding:

4. Klik vervolgens op de knop OK; daarna hoeft u alleen nog maar op Ctrl + V te drukken om de afbeelding ergens in de werkmap te plakken.

In Excel beschikt u over een Camera-hulpmiddel waarmee u een foto van uw geselecteerde gegevens kunt maken en deze als afbeelding plakt. Wanneer de oorspronkelijke gegevens wijzigen, wordt de gekopieerde afbeelding automatisch bijgewerkt.

Eerst moet u de Camera op het lint weergeven en deze daarna gebruiken.

1. Klik op het pictogram Snelle toegangswerkbalk aanpassen en vervolgens op de optie Meer opdrachten, zie de schermafbeelding:

2. Voer in het geopende dialoogvenster Excel-opties de volgende handelingen uit:

• Selecteer Alle opdrachtenin de keuzelijst Opdrachten kiezen uit;
• Scrol vervolgens naar beneden en selecteer Camerain het lijstvak;
• Klik daarna op de knop Toevoegenom deze tool toe te voegen aan de Snelle toegang werkbalk aanpassen;
• Klik ten slotte op OK om dit dialoogvenster te sluiten.
• 

3. Het Camera-hulpmiddel wordt nu weergegeven op het lint—zie de schermafbeelding:

4. Selecteer daarna het celbereik waarvan u een afbeelding wilt maken.

5. Klik daarna op het Camera-hulpmiddel, ga naar het werkblad en klik ergens — het gegevensbereik wordt dan als afbeelding ingevoegd, zoals in de onderstaande demo te zien is:

Als u Kutools voor Excel hebt, kunt u met de functie Bronnenbibliotheek het geselecteerde gegevensbereik opslaan in de Bronnenbibliotheek en dit vervolgens naar wens als afbeelding of tekst gebruiken.

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

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

3. Klik in het uitgeklapte navigatiedeelvenster Navigatie op het pictogram Bronnenbibliotheek en klik vervolgens op het pictogram Geselecteerde inhoud toevoegen aan AutoTekst, zie schermafbeelding:

4. Geef in het dialoogvenster Toevoegen aan AutoTekst een naam op voor dit item en selecteer de groep waaraan u het wilt toevoegen. Zie schermafbeelding:

5. Klik vervolgens op de knop Toevoegen om het toe te voegen aan het Bronnenbibliotheek-deelvenster. Als u dit bereik als afbeelding wilt invoegen, klikt u eerst op een cel om de positie van de afbeelding vast te leggen, zoekt u het opgeslagen item in het Bronnenbibliotheek-deelvenster en klikt u op Invoegen als > Afbeelding (EMF) in de vervolgkeuzelijst van het item. Het gegevensbereik wordt dan als afbeelding in het werkblad ingevoegd, zie schermafbeeldingen:

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

1. Maak eerst twee kolommen aan: één met productnamen en één met de bijbehorende afbeeldingen. Zie de schermafbeelding:

2. Maak vervolgens een keuzelijst voor de celwaarden. Klik op een cel om de keuzelijst weer te geven en klik daarna op Gegevens > Gegevensvalidatie > Gegevensvalidatie. Zie schermafbeelding:

3. Selecteer in het weergegeven Gegevensvalidatie-dialoogvenster, onder het tabblad Instellingen, de optie Lijst in de vervolgkeuzelijst Toestaan en geef vervolgens in het tekstvak Bron de cellen op waaruit u de keuzelijst wilt maken (zie schermafbeelding):

4. Klik op OK om de keuzelijst met celwaarden te maken. Selecteer daarna een item uit de keuzelijst, zie schermafbeelding:

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

6. Voer in het Nieuwe Naam-dialoogvenster de volgende handelingen uit:

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

  

  Opmerking: In de bovenstaande formule:

  • Sheet11!$A$2:$B$6: is het werkblad en het bereik dat de waarden en afbeeldingen bevat die u wilt gebruiken;
  • Sheet11!$E$2: is de cel binnen het werkblad waar u de vervolgkeuzelijst hebt gemaakt;
  • Sheet11!$A$2:$A$6: is de lijst met cellen waarop u de vervolgkeuzelijst hebt gebaseerd;
  • Het variabele getal 2 is het kolomnummer dat de afbeeldingen bevat. Als uw afbeeldingen in kolom C staan, voert u 3 in.

7. Klik daarna op de knop OK en kopieer vervolgens de bijbehorende afbeelding—gebaseerd op de celwaarde in E2 van het oorspronkelijke bereik—naar cel F2. Zie schermafbeelding:

8. Selecteer vervolgens de afbeelding in cel F2 en voer daarna in de formulebalk deze formule in: =myimage (myimage is de celnaam die u in stap 6 hebt gemaakt). Zie schermafbeelding:

9. Nadat u de formule hebt ingevoerd en op Enter hebt gedrukt, wordt de bijbehorende afbeelding direct weergegeven zodra u een item uit de keuzelijst selecteert. Zie schermafbeelding:

De bovenstaande methode kan voor de meeste van ons lastig zijn. Daarom introduceer ik hier een handige functie: de Afbeelding keuzelijst van Kutools voor Excel. Met deze handige tool maakt u in slechts enkele klikken meerdere keuzelijsten met hun bijbehorende afbeeldingen.

1. Maak eerst twee kolommen in uw werkblad aan: één met productnamen en één met de bijbehorende afbeeldingen.

2. Klik daarna op Kutools > Keuzelijst > Afbeelding keuzelijst, zie schermafbeelding:

3. In het Afbeelding keuzelijst-dialoogvenster kunt u stap 1 overslaan als u al kolommen met celwaarden en afbeeldingen hebt gemaakt. Selecteer vervolgens het oorspronkelijke gegevens- en afbeeldingsbereik en de Plaatsingsgebied-lijst, zie schermafbeelding:

4. Klik daarna op de knop Ok. Vervolgens worden de keuzelijsten met afbeeldingen aangemaakt in de geselecteerde cellen. Zodra je een item uit de keuzelijst selecteert, verschijnt de bijbehorende afbeelding direct—zie de onderstaande demo:

Normaal gesproken kunt u de functie Opslaan als gebruiken om alle afbeeldingen uit de werkmap op te slaan. Volg deze stappen:

1. Klik op Bestand > Opslaan als. Geef in het venster Opslaan als een map op om de geëxporteerde bestanden in op te slaan en kies daarna Webpagina (*.htm; *.html) in de vervolgkeuzelijst Opslaan als-type, zie schermafbeelding:

2. Klik daarna op de knop Opslaan. Ga naar de betreffende map en u ziet twee bestanden: één HTML-bestand en één map met de afbeeldingen, grafieken of andere objecten uit de werkmap. Zie schermafbeelding:

3. U kunt de afbeeldingen daarna naar een andere map slepen, precies zoals u dat nodig heeft.

Opmerking: Met de functie Opslaan als krijgt u elke afbeelding twee keer: eenmaal in een kleinere en eenmaal in een grotere versie, zodat u de afbeeldingen met hogere resolutie kunt opslaan zoals u dat wilt.

Om alle afbeeldingen uit een Excel-bestand op te slaan, kunt u ook de bestandsextensie wijzigen naar RAR. Doe het volgende:

1. Wijzig de bestandsextensie van xlsx in rar, zoals op de onderstaande schermafbeelding wordt weergegeven:

2. Pak het bestand daarna uit en u ziet drie mappen en één bestand in de map, zie de schermafbeelding:

3. Open vervolgens de map xl en daarna de map media. Hier vindt u alle afbeeldingen zonder duplicaten, zie de schermafbeelding:

Als u Kutools voor Excel hebt, kunt u met de functie Grafiek exporteren snel specifieke objecten zoals afbeeldingen, grafieken en vormen exporteren naar het gewenste afbeeldingsformaat.

1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Grafiek exporteren, zie schermafbeelding:

2. Voer in het Grafiek exporteren-dialoogvenster de volgende handelingen uit:

• Kies de optie Afbeeldingenin de keuzelijst Typen;
• Geef een map op waarin u de geëxporteerde afbeeldingen wilt opslaan;
• Klik vervolgens op de keuzelijst bij Exportformaat om een formaat voor uw afbeeldingen te kiezen.
• 

3. Klik ten slotte op de knop Ok. Alle afbeeldingen in het huidige werkboek zijn nu opgeslagen in de map die u hebt opgegeven. Zie de schermafbeelding:

Om de afbeeldingen uit Huidig werkblad te verwijderen, helpt de onderstaande VBA-code u daarbij. Doe het volgende:

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

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

3. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Verwijder alle afbeeldingen uit Huidig werkblad

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

4. Druk daarna op de toets F5 om deze code uit te voeren. Alle afbeeldingen in het actieve werkblad worden dan tegelijkertijd verwijderd.

Als u alleen de afbeeldingen uit een bereik van cellen wilt verwijderen, helpt de volgende eenvoudige code u daarbij.

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

2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Verwijder de afbeeldingen 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 de 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 dan in één keer verwijderd. Zie de schermafbeeldingen:

Als u Kutools voor Excel hebt, kunt u met de functie Afbeeldingen en objecten verwijderen snel afbeeldingen verwijderen uit een werkblad, enkele geselecteerde werkbladen of een hele werkmap.

1. Klik op Kutools > Verwijderen > Afbeeldingen en objecten verwijderen, zie schermafbeelding:

2. In het geopende dialoogvenster Afbeeldingen en objecten verwijderen vinkt u Afbeeldingen aan in het gedeelte Verwijderen en geeft u vervolgens onder het gedeelte Zoeken in het bereik op waaruit u de afbeeldingen wilt verwijderen. Zie schermafbeelding:

3. Klik vervolgens op de knop OK en alle afbeeldingen worden verwijderd uit het werkblad, de geselecteerde werkbladen of de hele werkmap, zoals u hebt opgegeven.