makeing the pictures visible or invisible

[2007-User]

Hi,

I have some pictures on my worksheet named object 39 and object 40 and ...
I need to know how I can make them to be visible or invisible base on a
cell's value ?

Thanks in advance.

 

[Don Guillett]

this should hide/unhide all shapes on the active sheet
Sub getshapenames()
For Each sh In ActiveSheet.Shapes
sh.visible=not sh.visible
Next sh
End Sub

 

[2007-User]

Thanks Don,

But that is not a shape, is a picture that I have inserted, I want to be
able to hide/unhide them base on their names,is it possible ?

 

[Don Guillett]

If they are the ONLY ones on the sheet, try it!!
If not, let me know how many and names of each on the sheet and the ones you
want to hide.

 

[2007-User]

Thanks Don,
as an example let try to make "object 39" invisible and keep the rest to be
visible.
is it possible ?

 

[Dave Peterson]

Maybe you can look at J.E. McGimpsey's page:

http://www.mcgimpsey.com/excel/lookuppics.html

 

[Don Guillett]

try this idea. Note name must be identical

If sh.Name = "Picture 1" Then sh.Visible = Not sh.Visible