Hoe verwijdert u alle afbeeldingen binnen een bereik van cellen?
Als er meerdere afbeeldingen in uw werkblad zijn geplaatst en u wilt er nu snel een paar verwijderen binnen een beperkt bereik, hoe pakt u dat dan aan?
Verwijder alle afbeeldingen in een specifiek bereik van cellen met VBA-code
Verwijder alle afbeeldingen in een werkblad of hele werkmap met Kutools voor Excel
Verwijder alle afbeeldingen in een specifiek bereik van cellen met VBA-code
Hier is een eenvoudige VBA-code waarmee u alle afbeeldingen in het geselecteerde bereik in één keer kunt verwijderen, zonder ze handmatig één voor één te hoeven verwijderen. Volg deze 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 code in het Module-venster.
VBA-code: verwijder alle afbeeldingen in een Bereik selecteren van cellen:
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 wens.
3. Druk vervolgens op de toets F5 om deze code uit te voeren. De afbeeldingen in het geselecteerde bereik zijn nu in één keer verwijderd. Zie onderstaande afbeelding:
Verwijder alle afbeeldingen in een werkblad of hele werkmap met Kutools voor Excel
Als u alle afbeeldingen uit een werkblad of werkmap wilt verwijderen, helpt het hulpprogramma Kutools voor Excel met de functie Afbeeldingen en objecten verwijderen u daarbij.
Na het installeren van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Verwijderen > Afbeeldingen en objecten verwijderen, zie onderstaande afbeelding:
2. In het dialoogvenster Afbeeldingen en objecten verwijderen vinkt u Afbeeldingen aan in het gedeelte Verwijderen en kiest u vervolgens het bereik waaruit u de afbeeldingen wilt verwijderen onder het gedeelte Zoeken in. Zie onderstaande afbeelding:
3. Klik vervolgens op de knop OK en alle afbeeldingen worden verwijderd uit het werkblad of de hele werkmap, zoals u hebt geselecteerd.
Kutools voor Excel – Vol met meer dan 300 essentiële hulpmiddelen voor Excel. Maak uw Excel-taken sneller, eenvoudiger en efficiënter.Download nu!
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