Hoe exporteer ik alle afbeeldingen in één keer vanuit Excel?
Stel dat u veel afbeeldingen in uw werkmap hebt en deze tegelijkertijd in een specifieke map wilt opslaan, kunt u de afbeeldingen meestal een voor een handmatig kopiëren en plakken om ze op te slaan, maar het is tijdrovend om ze te kopiëren en te plakken herhaaldelijk zo. Hier zal ik u enkele tips introduceren om deze taak op te lossen.
Exporteer alle afbeeldingen in één keer vanuit Excel met de functie Opslaan als
Met de ingebouwde Excel Opslaan als functie, kunt u een werkmap opslaan als webpagina om alle afbeeldingen, inclusief grafieken, vormen en andere objecten, in een map op te slaan. Ga als volgt te werk.
1. Open de werkmap met de afbeeldingen die u wilt opslaan. Klik Dien in > Opslaan als > Blader door.
2. In de Opslaan als dialoogvenster, moet u:
3. In het opduiken Microsoft Excel dialoogvenster, klik op de Ja knop.
4. Open de map waarin de geëxporteerde bestanden zijn opgeslagen en u kunt een map en een HTML-bestand in de lijst zien. Alle afbeeldingen in de werkmap, inclusief grafieken, vormen of objecten, worden in deze map opgeslagen.
5. Je kunt de foto's die je nodig hebt in de map bewaren en andere verwijderen die je niet nodig hebt
Exporteer eenvoudig alle afbeeldingen tegelijk vanuit Excel met een geweldige tool
De bovenstaande methode haalt alle objecten uit de werkmap, misschien heb je sommige niet nodig. Als je hebt Kutools for Excel geïnstalleerd in Excel, zijn Exporteer afbeeldingen functie kan u helpen alleen de foto's op te slaan die u nodig hebt.
Na het installeren van Kutools for Excelgaat u als volgt te werk:
1. klikken Koetools Plus > Importeren en exporteren > Exporteer afbeeldingen:
2. In de Exporteer afbeeldingen dialoogvenster, configureer dan als volgt:
3. Dan verschijnt er een dialoogvenster om u te vertellen hoeveel foto's met succes zijn geëxporteerd, klik op de OK knop.
Nu kunt u naar de doelmap gaan en de geëxporteerde afbeeldingen controleren.
klik op Exporteer afbeeldingen voor meer informatie over deze functie.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
Exporteer afbeeldingen en hernoem ze met de aangrenzende celwaarden
Zoals te zien is in de onderstaande schermafbeelding, zijn er twee kolommen, de ene bevat een lijst met fruitnamen en de andere bevat de bijbehorende afbeeldingen van de vruchten. Om deze afbeeldingen te exporteren en ze automatisch een naam te geven met de bijbehorende fruitnamen, kunt u de VBA-code in deze sectie proberen.
1. In het werkblad waar u de afbeeldingen wilt exporteren, drukt u op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer vervolgens de volgende VBA naar het modulevenster.
VBA-code: exporteer afbeeldingen in een kolom en geef ze automatisch een naam
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 de F5 toets om de code uit te voeren. Selecteer in het openingsvenster een map om de afbeeldingen op te slaan en klik vervolgens op OK.
Vervolgens worden alle afbeeldingen in een opgegeven kolom geëxporteerd en automatisch benoemd met de aangrenzende celwaarden zoals u hebt opgegeven.
Gerelateerd artikel:
Hoe grafieken naar afbeeldingen in Excel te exporteren?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!