Hoe exporteert u alle afbeeldingen in één keer uit Excel?
Stel dat u veel afbeeldingen in uw werkmap hebt en deze tegelijk naar een specifieke map wilt opslaan. Normaal gesproken kopieert en plakt u ze handmatig, één voor één — maar dat kost veel tijd als u het vaker moet doen. Gelukkig zijn er slimme manieren om deze taak snel en eenvoudig af te handelen.
Exporteer alle afbeeldingen tegelijk uit Excel met de functie Opslaan als
Met de ingebouwde Excel-functie Opslaan als kunt u een werkmap opslaan als Webpagina om alle afbeeldingen – waaronder grafieken, vormen en andere objecten – in één map op te slaan. Volg hiervoor de volgende stappen.
1. Open de werkmap met de afbeeldingen die u wilt opslaan. Klik op Bestand > Opslaan als > Bladeren.
2. In het dialoogvenster Opslaan als moet u het volgende doen:
3. In het verschijnende dialoogvenster Microsoft Excel klikt u op de knop Ja.
4. Open de map waarin de geëxporteerde bestanden zijn opgeslagen; u ziet daar een map en een HTML-bestand met de lijst van bestanden. Alle afbeeldingen uit de werkmap, inclusief grafieken, vormen en objecten, zijn in deze map opgeslagen.
5. Behoud alleen de afbeeldingen die u nodig hebt in de map en verwijder de rest.
Exporteer eenvoudig alle afbeeldingen tegelijk uit Excel met een geweldige tool
De bovenstaande methode haalt alle objecten uit de werkmap, maar mogelijk hebt u sommige daarvan niet nodig. Als u Kutools voor Excel in Excel hebt geïnstalleerd, helpt de functie Grafiek exporteren u om alleen de gewenste afbeeldingen op te slaan.
1. Klik op KUTOOLS PLUS > Importeren/Exporteren > Grafiek exporteren:
2. In het dialoogvenster Grafiek exporteren configureert u het volgende:
om Selecteer een map te selecteren waar u uw geëxporteerde afbeeldingen wilt opslaan;
3. Vervolgens verschijnt een dialoogvenster met de melding hoeveel afbeeldingen succesvol zijn geëxporteerd. Klik op de knop OK.
U kunt nu naar de doelmap gaan en de Afbeeldingen Exporteren controleren.
Klik op Grafiek exporteren voor meer informatie over deze functie.
Voordat u Kutools voor Excel toepast, moet u het eerst downloaden en installeren.
Afbeeldingen Exporteren en hernoem ze met de waarden van de aangrenzende cellen
Zoals in onderstaande schermafbeelding te zien is, zijn er twee kolommen: één bevat een lijst met vruchtennamen en de andere de bijbehorende afbeeldingen van de vruchten. Om deze afbeeldingen te exporteren en automatisch te benoemen met de bijbehorende vruchtennamen, kunt u de VBA-code in deze sectie proberen.
1. Druk in het werkblad waaruit u de afbeeldingen wilt exporteren op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de volgende VBA-code naar het modulevenster.
VBA-code: Exporteer afbeeldingen in een kolom en benoem ze automatisch
Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
Dim xStrPath As String
Dim xStrImgName As String
Dim xImg As Shape
Dim xObjChar As ChartObject
Dim xFD As FileDialog
Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
If xFD.Show = -1 Then
xStrPath = xFD.SelectedItems.Item(1) & "\"
Else
Exit Sub
End If
On Error Resume Next
For Each xImg In ActiveSheet.Shapes
If xImg.TopLeftCell.Column = 2 Then
xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
If xStrImgName <> "" Then
xImg.Select
Selection.Copy
Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
With xObjChar
.Border.LineStyle = xlLineStyleNone
.Activate
ActiveChart.Paste
.Chart.Export xStrPath & xStrImgName & ".png"
.Delete
End With
End If
End If
Next
End Sub
Opmerkingen:
3. Druk op de toets F5 om de code uit te voeren. Selecteer in het geopende venster Selecteer een map om de afbeeldingen op te slaan en klik vervolgens op OK.
Vervolgens worden alle afbeeldingen in de opgegeven kolom geëxporteerd en automatisch benoemd met de waarden van de aangrenzende cellen zoals u hebt opgegeven.
Gerelateerd artikel:
Hoe exporteert u grafieken naar afbeeldingen in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins