< návrat zpět

MS Excel


Téma: Událostní procedura rss

Zaslal/a 6.5.2009 21:16

Potřebuju před uzavřením sešitu vymazat všechny listy typu graf. Zkoušel jsem jednoduše :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Graf As Chart
For Each Graf In Me
Graf.Delete
Next Graf
End Sub
Ale háže mi to Error 438 pro řádek For each ... Co s tím? Kdo poradí?

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#000511
avatar
Vždycky se musím trápit nějaký čas, než přijdu s problémem sem. A brzy na to mi něco dojde. Takže :
On Error Resume Next
...
For Each Graf In Me.Sheets 'A funguje to

Teď už jen ať mě neotravuje s dotazem na každý mazaný list. Ale to nechám na ráno moudřejší večera.citovat
#000513
avatar
Ráno mě nezastihlo moudřejšího. Jak tedy zařídit, aby program mazal a neotravoval přitom s potvrzením pro vymazání každého listu ? 3citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Nahrazení kontingenční tabulky vzorcem

lubo • 9.6. 9:39

Nahrazení kontingenční tabulky vzorcem

elninoslov • 8.6. 19:03

Nahrazení kontingenční tabulky vzorcem

lubo • 8.6. 16:18

tisk do pdf

titus • 8.6. 14:01

Nahrazení kontingenční tabulky vzorcem

spoko33 • 8.6. 13:25

Nahrazení kontingenční tabulky vzorcem

spoko33 • 8.6. 13:24

Nahrazení kontingenční tabulky vzorcem

elninoslov • 8.6. 13:13