Resim gizleme ve gösterme.

[yusuf1284]

Merhaba, sayfaya r kilitleme ve açma simgesi koymak istedim fakat yapamadım. Yardımcı olur musunuz?

 

[Greenblacksea53]

Sub acik()

ActiveSheet.Shapes.Range(Array("Resim 4")).Visible = True
ActiveSheet.Shapes.Range(Array("Resim 6")).Visible = False
MsgBox " Kapandı, açık resim gösterilecek"
End Sub

Sub kapalı()

ActiveSheet.Shapes.Range(Array("Resim 6")).Visible = True
ActiveSheet.Shapes.Range(Array("Resim 4")).Visible = False
MsgBox " Açık kapandı, Kapalı resim gösterilecek "
End Sub

Resimlere sağ tıklayıp makroları eklersiniz, Açık Kapalı diye iki makro oluşacak

 

[yusuf1284]

Teşekkür ederim hocam