Hide Unhide Picture And Cell Content Using CheckBoxes

**jeff** · 08-02-2013, 10:00 PM

This example will need code,There are 2 checkboxes.Can I checkbox hide/unhide the picture and the other checkbox hide/unhide the text,Can the picture be a fixed size and always insert exactly like in the attached example.
Can each checkbox say hide/unhide depending on which state the button is in
Jeff

**jeff** · 08-03-2013, 06:51 AM

Hi

Can VBA code be used here so that when i check either box it hides or unhides.One checkbox will say Hide Picture when visible and Unhide Picture when not visible...The other checkbox will do the same for the Text

Thanks

Jeff

**Admin** · 08-03-2013, 10:22 AM

Hi

Not sure , but does this attachment help you ?

**Excel Fox** · 08-03-2013, 12:34 PM

And what about the other post you posted?

http://www.excelfox.com/forum/f2/hid...eckboxes-1317/

**jeff** · 08-03-2013, 01:12 PM

Thank you

Could I request a change....could the code show both the Picture and Text at the same time when selected and hide both the Picture and Text at the same time when selecting to hide

The code is great and appreciated

Apologies for the posts but I keep changing my mind on what I wanted.ExcelFox example is excellent as well

Jeff

**Excel Fox** · 08-03-2013, 01:34 PM

I've added a code at http://www.excelfox.com/forum/f2/hid...eckboxes-1317/

**jeff** · 08-03-2013, 01:54 PM

Thank you ExcelFox....works a treat

Is there a code I can use to protect the cells involved so that the picture and Text cannot be deleted when visible

or would you recommend a another way to protect

Jeff

**Excel Fox** · 08-03-2013, 09:28 AM

Paste this in the respective sheet module

Code:

Private Sub CheckBox1_Click()

    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.Caption = "Unhide"
        Me.Shapes("WARNING").Visible = msoFalse
    Else
        Me.CheckBox1.Caption = "Hide"
        Me.Shapes("WARNING").Visible = msoTrue
    End If
    
End Sub

Private Sub CheckBox2_Click()

    If Me.CheckBox2.Value = True Then
        Me.CheckBox2.Caption = "Unhide"
        Me.Range("B2").Value = ""
    Else
        Me.CheckBox2.Caption = "Hide"
        Me.Range("B2").Value = "WARNING DO NOT ENTER"
    End If
    
End Sub

But curious as to why you want to do this with two checkboxes, instead of one?

**Excel Fox** · 08-03-2013, 01:33 PM

To do this with just one checkbox, use this. This is also in response line with the posts at http://www.excelfox.com/forum/f2/che...and-text-1316/

Code:

Private Sub CheckBox1_Click()

    If Me.CheckBox1.Value = True Then
        Me.CheckBox1.Caption = "Unhide"
        Me.Shapes("WARNING").Visible = msoFalse
        Me.Range("B2").Value = ""
    Else
        Me.CheckBox1.Caption = "Hide"
        Me.Shapes("WARNING").Visible = msoTrue
        Me.Range("B2").Value = "WARNING DO NOT ENTER"
    End If
    
End Sub