alle grafieken wissen+vba

[nobody11]

weet iemand de code om het aantal grafieken in een sheet te tellen,en nadien een voor een te wissen.. ik heb een code gemaakt,mr die werkt nt,en ik weet ongeveer waarom

Sub grafiekenwissen()
Dim n As Integer
n = ActiveSheet.ChartObjects.Count 'telt aantal grafieken
On Error Resume Next
   For i = 0 To n
    ActiveSheet.ChartObjects("Grafiek").Activate
    ActiveChart.Parent.Delete
Next i

End Sub

de 'n' moet ergens in de activesheet.chartobjects verwerkt worden.. maar ik weet niet goed waar dat moet staan.. iemand hulp?

 

[Wigi]

Zie http://www.ozgrid.com/forum/showthread.php?t=30038

Wigi