Mazanie obrázkov makrom – VBA

Obrázky v Exceli sa nepoužívajú často, ale je to samozrejme možné. Obrázky sa ale do Excelu môžu dostať aj „neúmyselne“, napríklad pri kopírovaní údajov z internetu alebo intranetu. Na obrázku vidíte nakopírované údaje z webovej stránky hry Divoké Kmene. Keďže to nebolo prilepené ako text, pri kopírovaní sa prilepili aj obrázky.

excelovský súbor s obrázkami

Vymazávať obrázky po jednom alebo vyberať viacero naraz je síce nie ťažké, ale je to časovo náročné. Ak by sme mali robiť takúto činnosť opakovane, naša práca s Excelom by nebola efektívna.

Na vymazanie všetkých obrázkov môžeme použiť jednoduché makro. Pre skúšku ho nakopírujte do modulu v editore VBA (ALT + F11).

Sub Vymaz_Obrazky()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

Návrat hore