Kako izbrisati vse slike v različnih celicah?

Če je na vašem delovnem listu več slik, zdaj želite nekatere izbrisati v določenem obsegu, kako to hitro rešiti?

Izbrišite vse slike v določenem obsegu celic s kodo VBA

Z Kutools za Excel izbrišite vse slike v delovnem listu ali celotnem delovnem zvezku

Izbrišite vse slike v določenem obsegu celic s kodo VBA

Tukaj je preprosta koda VBA, ki vam lahko pomaga izbrisati slike v izbranem obsegu, ne da bi jih izbrisali eno za drugo, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Modul, in prilepite naslednjo kodo v Moduli Okno.

Koda VBA: izbriši vse slike v izbranem obsegu celic:

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

Opombe: V zgornji kodi, A5: B8 je obseg, iz katerega želite izbrisati slike, ga prilagodite svojim potrebam.

3. Nato pritisnite F5 tipko za zagon te kode in slike v izbranem obsegu so bile hkrati izbrisane, glejte posnetek zaslona:

Z Kutools za Excel izbrišite vse slike v delovnem listu ali celotnem delovnem zvezku

Če morate vse slike izbrisati z delovnega lista ali delovnega zvezka, se Kutools za Excel 's Izbrišite ilustracije in predmete pripomoček vam lahko naredi uslugo.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools > Brisanje > Izbrišite ilustracije in predmete, glej posnetek zaslona:

2. v Izbrišite ilustracije in predmete pogovorno okno, preverite slike Iz Brisanje in nato pod obsegom izberite obseg, ki ga želite izbrisati Poglej v razdelek, glej posnetek zaslona:

3. Nato kliknite Ok in vse slike bodo izbrisane iz delovnega lista ali celotnega delovnega zvezka, kot ste izbrali.

Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!