Jak odstranit všechny obrázky z řady buněk?

Pokud je ve vašem listu více obrázků, nyní chcete odstranit některé z nich ve specifikovaném rozsahu, jak to rychle vyřešit?

Odstraňte všechny obrázky v konkrétním rozsahu buněk pomocí kódu VBA

Odstraňte všechny obrázky v listu nebo v celém sešitu pomocí programu Kutools pro Excel

---

Odstraňte všechny obrázky v konkrétním rozsahu buněk pomocí kódu VBA

Zde je jednoduchý kód VBA, který vám pomůže odstranit obrázky ve vybraném rozsahu, aniž byste je smazali jeden po druhém, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modul, a vložte následující kód do Modul Okno.

Kód VBA: odstranit všechny obrázky ve vybrané oblasti buněk:

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

Poznámka: Ve výše uvedeném kódu, A5: B8 je rozsah, ze kterého chcete obrázky odstranit, změňte jej prosím podle svých potřeb.

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a obrázky ve vybraném rozsahu byly odstraněny najednou, viz screenshot:

---

Odstraňte všechny obrázky v listu nebo v celém sešitu pomocí programu Kutools pro Excel

Pokud potřebujete odstranit všechny obrázky z listu nebo sešitu, Kutools pro Excel 's Odstranit ilustrace a objekty nástroj vám může udělat laskavost.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů.

Přejít na Stáhnout Zkušební verze zdarma 30 dníNákup PayPal / MyCommerce

Po instalaci Kutools pro Excel, postupujte následovně:

1, klikněte Kutools > Vymazat > Odstranit ilustrace a objekty, viz screenshot:

2. V Odstranit ilustrace a objekty v dialogovém okně zaškrtněte Obrázky z Vymazat a poté vyberte rozsah, ze kterého chcete odstranit obrázky z pod Podívejte se do sekce, viz screenshot:

3. Pak klikněte na tlačítko Ok tlačítko a všechny obrázky budou odstraněny z listu nebo celého sešitu, jak jste vybrali.

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!