Resim gizleme ve gösterme.

Greenblacksea53

Altın Üye
Katılım
5 Ocak 2019
Mesajlar
548
Excel Vers. ve Dili
Ofis 365 Tr
C++:
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

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
214
Excel Vers. ve Dili
Office Pro 2016 TR
Teşekkür ederim hocam
 
Üst