VBA Needed to remove graphs

[Karoo News]

Hi all I have in a workbook vba code that creates a graph when a sheet is
activated. These happen on sheets 4 to 42. The reason I do this is to keep
the file size small as it is used on Excel 97. The problem i have is trying
to remove these graphs when the sheet deactivates due to the new sheet
activation code working. Is there a simple quick code that can remove any
graphs that are in pages 4 to 42 that I could put in say sheet activation
before the new graph code!

Hope this makes sense!

Regards
Neil

 

[Tom Ogilvy]

for each sh in Sheets
if sh.Index > 3 then
if sh.ChartObjects.Count > 0 then
sh.ChartObjects.Delete
end if
end if
Next

 

[Peter T]

Hi Neil,

Assuming you want to delete all charts on any deactivated sheet, try this in
the ThisWorkbook module -

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.ChartObjects.Delete
End Sub

Regards,
Peter T

 

[Rob van Gelder]

Check out my website for Shape Delete.
That allows you a bit of control over which Shapes are removed and which
remain.