Opgelost Plaatje laten verschijnen of verdwijnen

[Marco9999]

Hallo,

Ik zou d.m.v. een wijzigende waarde in een cel, in het geval van het bijgesloten voorbeeldbestandje, een afbeelding laten verschijnen of laten verdwijnen.
Dus als A1=1 dan moet het plaatje zichtbaar zijn, bij A1=0 moet het plaatje verdwijnen.
Iemand een iedeetje?

Vast mijn hartelijke dank,
Marco

 

[globe]

plak onderstaande code in je programmacode:

jouw afbeelding heet in je voorbeeld "afbeelding2"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    
    
    ActiveSheet.Pictures("afbeelding2").Visible = (Target.Value = 1)
End Sub

 

[Marco9999]

Top, werkt als een tierelier.
Dank je wel!