What's wrong with this code?

[xavi garriga]

Hi to all!

I've inserted one image via Insert/image/from file.
I've created as well a button, this commandbutton has this code:

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.Visible = False

and the image (of course) disappear.

With another commandbutton, I want this image to appear again, I've written
this code:

ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.Visible = True

This last code doesn't work, because there is not "picture 1" to select. How
can I make this image to appear again?

Thanks to all!!

 

[carlo]

You don't need to select it:

ActiveSheet.Shapes("Picture 1").Visible = False
ActiveSheet.Shapes("Picture 1").Visible = True

cheers
Carlo

 

[Bob Phillips]

There is no need to select, and no need for ShapeRange

ActiveSheet.Shapes("Picture 1").Visible = False

and

ActiveSheet.Shapes("Picture 1").Visible = True


But you can do it all with one commandbutton

With ActiveSheet.Shapes("Picture 1")
.Visible = Not .Visible
End With

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[xavi garriga]

Thank you!
--
atrep

There is no need to select, and no need for ShapeRange

ActiveSheet.Shapes("Picture 1").Visible = False

and

ActiveSheet.Shapes("Picture 1").Visible = True


But you can do it all with one commandbutton

With ActiveSheet.Shapes("Picture 1")
.Visible = Not .Visible
End With

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)