Hoe verwijder je alle afbeeldingen in een bereik van cellen?
Als er meerdere afbeeldingen in uw werkblad staan, en u wilt er een aantal ervan in een bepaald bereik verwijderen, hoe gaat u dat dan snel aanpakken?
Alle afbeeldingen in een specifiek celbereik verwijderen met VBA-code
Alle afbeeldingen in een werkblad of hele werkboek verwijderen met Kutools voor Excel
Alle afbeeldingen in een specifiek celbereik verwijderen met VBA-code
Hier is een eenvoudige VBA-code die u kan helpen om de afbeeldingen in het geselecteerde bereik te verwijderen zonder ze één voor één te hoeven verwijderen. Doe het volgende:
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 volgende code in het modulevenster.
VBA-code: alle afbeeldingen in een geselecteerd celbereik verwijderen:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
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 A5:B8 het bereik waaruit u de afbeeldingen wilt verwijderen. Pas dit aan naar uw behoefte.
3. Druk vervolgens op de F5-toets om deze code uit te voeren, en de afbeeldingen in het geselecteerde bereik worden meteen verwijderd, zie screenshot:
Alle afbeeldingen in een werkblad of hele werkboek verwijderen met Kutools voor Excel
Als u alle afbeeldingen uit een werkblad of een werkboek moet verwijderen, kan het hulpprogramma Afbeeldingen & Objecten Verwijderen van Kutools voor Excel u helpen.
Nadat u Kutools voor Excel hebt geïnstalleerd, doet u het volgende:
1. Klik op Kutools > Verwijderen > Afbeeldingen & Objecten Verwijderen, zie screenshot:
2. Schakel in het dialoogvenster Afbeeldingen & Objecten Verwijderen de optie Afbeeldingen aan in de sectie Verwijderen, en kies vervolgens het bereik waaruit u de afbeeldingen wilt verwijderen onder de sectie Zoeken in, zie screenshot:
3. Klik vervolgens op de knop OK, en alle afbeeldingen worden verwijderd uit het werkblad of het hele werkboek zoals u hebt geselecteerd.
Kutools voor Excel - Geleverd met meer dan 300 essentiële tools voor Excel. Geniet van permanent gratis AI-functies! Download nu!
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen