Resim Gizleme ve Gösterme

[hbgny]

Merhaba,
Çalışma sayfamda 2 adet resim var. Ben 2 tane buton eklemek istiyorum. 1.butona bastığımda 1 nolu resmi, resmin sol üst köşesi h1 hücresinden başlayacak şekilde göstersin ve 2. resmi gizlesin, 2.butona bastığımda ise, 2 nolu resmi h1 hücresinden başlayacak şekilde gösterip, 1 nolu resmi gizlesin. Bunun için butonlara nasıl bir makro yazmam konusunda yardımcı olabilir misiniz?

 

[Orion1]

Ekli dosyayı inceleyiniz.Resimler sayfa2 de .Ad tanımlama yapılmıştır.

 

[hbgny]

Teşekkür ederim. Tam tarif ettiğim gibi yapmışsınız, elinize sağlık.

 

[Orion1]

Teşekkür ederim. Tam tarif ettiğim gibi yapmışsınız, elinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[Asri]

Alternatif : Filtre yöntemi ile.

Filtre kriterine göre aynı anda birden fazla resmi gösterip gizleyebilirsiniz.
Resimler, özelliklerinde hücre ile taşı ve boyutlandır olarak seçilmeli.

Sub DoluÇerçeve1_Tıklat()
    ActiveSheet.Range("A:B").AutoFilter Field:=1, Criteria1:="lale"
End Sub
Sub DoluÇerçeve2_Tıklat()
    ActiveSheet.Range("A:B").AutoFilter Field:=1, Criteria1:="ortanca"
End Sub

Sub tumu()
   If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

 

[hbgny]

Teşekkür ederim. Sizin öneriniz de güzel, elinize sağlık.