Resim göstermede problem

[m.cay]

Merhaba,

Ekte personel takiple ilgili bir dosyam var. Bu dosyada kişinin üstüne tıklandığında C'de belirli bir yerde kayıtlı kişilerin resimlerini gösteriyor. Ancak ben tıklanan kişiye ait bir resim olmadığında veya farklı bir hücreye tıklandığında resim kutusunun boş çıkmasını istiyorum. Farklı şeyler denememe rağmen ne yazık ki bulamadım.
Yardımcı olabilecek varsa çok sevinirim.

 

[Merhum İdris SERDAR]

Merhaba,

Ekte personel takiple ilgili bir dosyam var. Bu dosyada kişinin üstüne tıklandığında C'de belirli bir yerde kayıtlı kişilerin resimlerini gösteriyor. Ancak ben tıklanan kişiye ait bir resim olmadığında veya farklı bir hücreye tıklandığında resim kutusunun boş çıkmasını istiyorum. Farklı şeyler denememe rağmen ne yazık ki bulamadım.
Yardımcı olabilecek varsa çok sevinirim.

İlk aklıma gelen:

boş bir resim dosyası yapın. Örneğin bu dosyasa "Resmi Yok" yazısı olsun. Ve Bu dosyayı resmi olmayanlarla ilintilendirin.

 

[xxcell]

Kodunuzu aşağıdaki şekilde değiştirin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, Range("a2:a" & [a65536].End(xlUp).Row)) Is Nothing Then GoTo hata
isim = Target.Value
Image1.Picture = LoadPicture("c:\yedekler\feza\" & isim & ".jpg")
Exit Sub

hata:
Image1.Picture = LoadPicture()
End Sub

 

[m.cay]

Teşekkürler sevgili xxcell