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

--
Regards,
Tom Ogilvy


"Karoo News" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>
>

[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

"Karoo News" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>
>

[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.

--
Rob van Gelder - http://www.vangelder.co.nz/


"Karoo News" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>