Plaatje voorwaardelijk aan uit werkt niet goed. Help!

[vibor]

Goedendag,
Ik ben al een tijdje bezig om een plaatje voorwaardelijk zichtbaar te maken. Het gaat slechts om 1 plaatje die simpelweg aan en uit moet kunnen door een selectiebutton.
In de bijlage wat ik tot nu toe heb. Als ik de waarde van een cel aanpas werkt het goed. Als cel A1 leeg is is er geen aardbei als ik er iets in tik is de aardbei weg. Dat werkt goed. Maar zodra ik de cel automatisch vul, zoals bij H1 werkt het niet meer automatisch en moet ik eerst in de cel stappen en weer door klikken. Wie weet hoe ik dit kan oplossen?

De aardbei is Object 1 en de trompet Object 2 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then OLEObjects(1).Visible = Target <> ""
If Target.Address = "$H$1" Then OLEObjects(2).Visible = Target = "WAAR"
End Sub

Bij voorbaat dank voor het mee denken.

Grt. Vincent

 

[emields]

zo misschien?

 

[vibor]

Het werkt!

Geweldig. Dank je wel voor de snelle reactie en de oplossing.

Ik ga de code nog even goed analyseren.

 

[VenA]

of

Private Sub CheckBox1_Click()
    ActiveSheet.Shapes(2).Visible = CheckBox1
End Sub