D
douglascfast
All,
I need to know a good way to do this, so any suggestions are welcome!
Situation: I have several sheets, and a graphic is placed on each of
the 5 sheets based on a selection. (no problems here).
The problem is this, when you change the selection it goes and finds
the old graphic and delete it before it writes the new graphic on the
page.
This is done my this:
ElseIf Logo = ('All') Then
Worksheet("Sheet1").activate
Activesheet.shapes("All").select
Selection.Delete
. . . . . Same as above for each sheet
There are many ElseIf statements one for each graphic.
So Question Time:
1) Is this the best way to do this? I have graph's on my sheets so I
can't just delete all hte shapes.
2) If the Macro fails in the middle for the user then they have to
close the sheet and repoen because this macro can't find any of the
named shapes in it.
Is there not a way at the end of the Macro to say, hey if there is not
one of these 30 some shapes then just keep going. Like a Else
continue?
Doug
I need to know a good way to do this, so any suggestions are welcome!
Situation: I have several sheets, and a graphic is placed on each of
the 5 sheets based on a selection. (no problems here).
The problem is this, when you change the selection it goes and finds
the old graphic and delete it before it writes the new graphic on the
page.
This is done my this:
ElseIf Logo = ('All') Then
Worksheet("Sheet1").activate
Activesheet.shapes("All").select
Selection.Delete
. . . . . Same as above for each sheet
There are many ElseIf statements one for each graphic.
So Question Time:
1) Is this the best way to do this? I have graph's on my sheets so I
can't just delete all hte shapes.
2) If the Macro fails in the middle for the user then they have to
close the sheet and repoen because this macro can't find any of the
named shapes in it.
Is there not a way at the end of the Macro to say, hey if there is not
one of these 30 some shapes then just keep going. Like a Else
continue?
Doug