VBA Needed to remove graphs

  • Thread starter Thread starter Karoo News
  • Start date Start date
K

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
 
for each sh in Sheets
if sh.Index > 3 then
if sh.ChartObjects.Count > 0 then
sh.ChartObjects.Delete
end if
end if
Next
 
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
 
Check out my website for Shape Delete.
That allows you a bit of control over which Shapes are removed and which
remain.
 
Back
Top