Button to show/hide a picture in a sheet

**notchristopher** · 09-13-2008, 04:54 PM

Is it possible to add a button to show/hide a picture in a worksheet?

**VBA Noob** · 09-13-2008, 05:17 PM

notchristopher,

Welcome to the forum. Please read forum rules below before posting again.
Your thread moved to programming

Try something like. Change picture 1 to your picture name

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

VBA Noob

**notchristopher** · 09-13-2008, 05:20 PM

my bad thanks

**notchristopher** · 09-13-2008, 05:55 PM

can you fix this for me please? not a coder..

Sub Button1_Click()
If Visible("Units-1.JPG") = True Then
ActiveSheet.Shapes("Units-1.JPG").Visible = False
Else
ActiveSheet.Shapes("Units-1.JPG").Visible = True
End Sub

**Andy Pope** · 09-14-2008, 07:32 AM

You need to test the visibility of the shape before changing it.
So rather than your test of Visible() use the same references to the sheet and shape.

Sub Button1_Click()

If ActiveSheet.Shapes("Units-1.JPG").Visible = True Then
ActiveSheet.Shapes("Units-1.JPG").Visible = False
Else
ActiveSheet.Shapes("Units-1.JPG").Visible = True


End Sub

**VBA Noob** · 09-14-2008, 07:50 AM

Or

ActiveSheet.Shapes("Units-1.JPG").Visible = _
Not ActiveSheet.Shapes("Units-1.JPG").Visible

or

With ActiveSheet.Shapes("Units-1.JPG")
    .Visible = Not .Visible
End With

VBA Noob

Button to show/hide a picture in a sheet

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Button to show/hide a picture in a sheet

Thread Information

Users Browsing this Thread

Similar Threads

send sheet as an email based on the sheet name.

populate sheet 2 using sheet 1 with a drop down

Hyperlink using a button to another sheet in the workbook

Links in same spreadsheet problem

Bookmarks

Bookmarks

Posting Permissions