Resim gizleme

[maliex]

iyi günler arkadaşlar,

ekteki paylaştığım dosyada 2 tane resim var,, 1 nolu resime tıkladığımda 1 nolu resmin kaybolup 2 nolu resim görünecek,,2 nolu resime tıkladığımda 1 nolu resim görünecek 2 nolu resim ise gizlenecek yardımcı olabilirmisiniz ?

vba ile yapmak istiyorum gizlenme kaybolma yanısıra başka kodlarda ekleyeceğim çünki tşklerr

 

[maliex]

cevabı buldum..belki başkasınada faydası olur die paylaşıyorum

Sub birgizle()
    
    ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = True
    ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = False
    
End Sub
Sub ikigizle()
    
    ActiveSheet.Shapes.Range(Array("Picture 1")).Visible = True
    ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = False
    
End Sub