Odstranění obrázků v Excelu Vyřešeno

[moogcz]

Dobrý den,

mám prosbu na makro pro odstranění všech obrázků z Excelu, které jsou v souborech, které mají různý počet listů.

Tohle mi odstraní obrázky pouze z jednoho aktivního listu, což mi neušetří bohužel žádnou práci :(

Sub smazat_obrazky()
2.ActiveSheet.Pictures.Delete
3.End Sub

Nevím jak to upravit tak, aby to mazalo i na ostatních listech.

Moc děkuji za pomoc :)

[Reklama]

[Poki]

Kód: Vybrat vše

Sub odstran_obrazky()
Dim List As Worksheet

For Each List In Worksheets
List.Pictures.Delete
Next List
End Sub

[Azuzula]

Stačí mít aktivní první list.

Kód: Vybrat vše

Sub smazat_obrazky()
On Error GoTo konec
For poradi = 1 To Sheets.Count
ActiveSheet.Pictures.Delete
Worksheets(ActiveSheet.Index + 1).Select
Next
konec:
End Sub


--- Doplnění předchozího příspěvku (09 Úno 2012 15:54) ---

Tak mě Poki předběhnul a jeho řešení je určitě lepší než to moje. Hold se ve VBA ještě nevyznám tak dobře.

[moogcz]

Mockrát děkuji. Použil jsem verzi od Pokiho a funguje skvěle. Ušetřili jste mi spoustu hodin práce :) Ještě jednou moc díky!