Hvordan slettes alle billeder i en række celler?
Hvis der er flere billeder, der er befolket i dit regneark, vil du nu slette nogle af dem i et bestemt interval, hvordan håndterer du det hurtigt?
Slet alle billeder i et bestemt celleområde med VBA-kode
Slet alle billeder i et regneark eller en hel projektmappe med Kutools til Excel
Slet alle billeder i et bestemt celleområde med VBA-kode
Her er en simpel VBA-kode, der kan hjælpe dig med at slette billederne i det valgte område uden at slette dem en efter en, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Modul, og indsæt følgende kode i Moduler Vindue.
VBA-kode: slet alle billeder i et valgt celleområde:
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
Bemærk: I ovenstående kode, A5: B8 er det område, du vil slette billederne fra, skal du ændre det til dit behov.
3. Tryk derefter på F5 tasten for at køre denne kode, og billederne i det valgte område er blevet slettet på én gang, se skærmbillede:
Slet alle billeder i et regneark eller en hel projektmappe med Kutools til Excel
Hvis du har brug for at slette alle billeder fra et regneark eller en projektmappe, skal du Kutools til Excel 's Slet illustrationer og objekter værktøj kan gøre dig en tjeneste.
| Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Efter installation Kutools til Excelskal du gøre som følger:
1. Klik Kutools > Slette > Slet illustrationer og objekter, se skærmbillede:
2. I Slet illustrationer og objekter dialogboks, tjek Billeder fra Slette sektionen, og vælg derefter det omfang, som du vil slette billederne fra under kig ind sektion, se skærmbillede:
3. Klik derefter på Ok knappen, og alle billeder vil blive slettet fra regnearket eller hele projektmappen, som du valgte.
Klik for at downloade Kutools til Excel og gratis prøveversion Nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
