resim çağırma yardım

[ojibu]

sitedeki bütün makroları denedim ama yine modifiye edemedim. sizden ricam ekteki dosyadaki prog kişiyi çağırdığmda resmide bir dosyadan alıp gelmesi. resim dosyasına resimleri o kişilerin adı ile kayıt edeceğim. lütfen yardım

 

[Levent Menteşoğlu]

ANASAYFA isimli sayfanın kod sayfasına aşağıdaki kodu kopyalayın. Kod C:\Resim isimli klasörden B1 hücresinden aldığı isme ait resimi D3 hücresine çağırır. Resim klasöründeki resmin adının B1 hücresindeki isim ile aynı olmasına dikkat edin.

[vb:1:760229b311]Private Sub Worksheet_Calculate()
On Error Resume Next
ActiveSheet.Pictures.Delete
[d3].Select
ActiveSheet.Pictures.Insert ("C:\Resim\" & [b1] & ".jpg")
ActiveSheet.Pictures.Select
Selection.Name = "a"
[d3].Select
End Sub
[/vb:1:760229b311]

 

[desiroo]

resim çağırma

C:\Resim yeni bir klasör yap
zipli dosyayı C:\Resim içine aç
Levent Beyin dediği gibi ve örneğe bi bak.
Bunuda Levent Bey sayesinde yapmıştım.

 

[ojibu]

çok teşekkür ederim.

 

[ojibu]

hocam , resimler farklı boyutta bunu anasayfada gösterirken standart bir çerçeve yapabilrmiyiz. ayrıca diğer sayfalara geçince bu resimler orada yapışıyor. silmek istiyorum resim 250 diyor siliyorum resim 249 diyor. sanki 250 tane aynı resmi üst üste koymuş gibi bir durum oluyor. ana sayfada deil. diğer data sayfalarına bu resim nasıl geliyor anlamadım

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/download.php?id=7378

Bu linkteki dosyayı kendinize uyarlayın.

 

[ojibu]

bu link benim problemimle aynı deil. yine de teşekkür

 

[Levent Menteşoğlu]

Haklısınız, yukarıdaki kodda gerekli düzeltmeyi yaptım. Tekrar deneyebilirsiniz.

 

[ojibu]

dosya ekte hocam

 

[ojibu]

dosya eklenmemiş şimdi ekliyorum

 

[Levent Menteşoğlu]

Bu durumda en iyi çözüm açılan kutunuza bir makro bağlamaktır. Dosyayı inceleyin.

 

[ojibu]

makro bağlaroı kı bağlantıyı tıklmadan resim gelmiyor

 

[Levent Menteşoğlu]

Evet açılan kutudan bir isim seçtiğinizde seçilen isme ait resim gelecektir. İstediğiniz bu değilmiydi zaten.

 

[ojibu]

hocam makroya tıklamasan resim değişmiyor. yani ben isim değişince otomatik resim gelsin diyorum. her isimde makroyu tıklamak gerekiyor

 

[Levent Menteşoğlu]

Sanırım neyi kasdettiğinizi yine anlayamadım. Þimdi şöyle izah edeyim. İsimleri ANASAYFA isimli açılan kutudan seçiyorsunuz. İsim değişinceden kastınız bu değilmidir, bunun dışında ismi klavyeden yazıyormusunuz.

Açılan kutudan ismi seçtiğinizde makro çalışıyor ve isme ait resmi getiriyor. Bunun dışında resmin nasıl gelmesini istiyorsunuz.

 

[tuarek]

EÐER(İNDİS(tablo;$D$4;7)>0;İNDİS(tablo;$D$4;7);"")

bu formülün çalışma mantığı nedir, açıklayabilirmisiniz?

 

[scartex]

ÇÖZÜMÜ YOKMU

PERSONEL SİCİL DEFTERİ deneme.xls dosyasını inceledim benim işime yarıyor.

Ayni soruyu bende sormak istiyorum. Açılır kutudan herhangi bi kişinin ismini seçtiğimde sağ tarafa o kişinin resiminin çıkmasını ve her farklı kişiyi seçtiğimde değişmesini istiyorum. Makrodan anlamadığım için kod sayfasına bakakaldım. Anlayan bir arkadaş yardımcı olabilirmi ?

Teşekkür ederim.

 

[ibryapici]

Merhabalar ben yukarıdaki linke giremiyorum ve ayrıca ekteki dosya demişsiniz ama ek görememdim bana yardımcı olur musunuz.
hayırlı calısmalar iyi günler