Stránka 1 z 1

Odstranění obrázků v Excelu

Napsal: 09 úno 2012 14:48
od 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 :)

Re: Odstranění obrázků v Excelu

Napsal: 09 úno 2012 15:39
od 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

Re: Odstranění obrázků v Excelu

Napsal: 09 úno 2012 15:52
od 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.

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

Napsal: 09 úno 2012 16:16
od 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!