RESİM GİZLEME

[comp_wolf]

İyi günler
ben exel dosyamda buton yerine 2 adet resim koydum
bu koyduğum resimlerin ismi
resim 1 ve resim 2
ben koyduğum bir buton ile butona bastığımda resimler pasif olmasını istiyorum
diğer bir buton ile de resimleri geri aktif etmek istiyorum
bu konuda nasıl yardımcı olabilirsiniz bana ?
şimdiden teşekkür ederim herkese...

 

[ÖmerBey]

İyi günler,
Aşağıdaki kodu boş bir modüle kopyaladıktan sonra resimler dizisindeki isimleri aktif sayfanızdaki resim isimleriyle değiştirip deneyiniz.

Sub göster()
Kod (True)
End Sub

Sub gizle()
Kod (False)
End Sub

Private Sub Kod(onay As Boolean)
resimler = Array("Resim 1", "Resim 2")
For Each res In resimler
    ActiveSheet.Pictures(res).Visible = onay
Next
End Sub

 

[Seyit Tiken]

Alternatif : Düğmelere gerek kalmadan her hangi bir hücreyi ÇİFT tıklayarak RESİMLERİ gizle-göster yapabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ActiveSheet.Shapes("Resim 1").Visible = _
ActiveSheet.Shapes("Resim 1").Visible = 0
ActiveSheet.Shapes("Resim 2").Visible = _
ActiveSheet.Shapes("Resim 2").Visible = 0
End Sub

 

[comp_wolf]

iki kod içinde çok teşekkür ederim ikisi ile de istediğimi yaptım sağolun