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ů. |
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ď!
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
