MS Excel

Téma: Událostní procedura

Zaslal/a kolokol 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ěď >

kolokol(6.5.2009 22:02)#000511

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

kolokol(7.5.2009 8:15)#000513

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 ?

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio