< 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í?

Zaslat odpověď >

#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

Vynásobit hodnoty kurzem - Power Query

Alfan • 24.4. 16:32

Relativní cesta - zdroje Power Query

Alfan • 24.4. 15:44

Relativní cesta - zdroje Power Query

elninoslov • 24.4. 14:26

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 12:13

Jak odstraním duplicitní údaje

elninoslov • 24.4. 8:57

Vyhledej

PavDD • 24.4. 8:56

Vyhledej

elninoslov • 24.4. 8:47