• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

resim çağırma yardım

ojibu

ojibu

Katılım
14 Haziran 2005
Mesajlar
196
Excel Vers. ve Dili
Office 365, Office 2019
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
 
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]
 
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.
 
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
 
bu link benim problemimle aynı deil. yine de teşekkür
 
Haklısınız, yukarıdaki kodda gerekli düzeltmeyi yaptım. Tekrar deneyebilirsiniz.
 
Bu durumda en iyi çözüm açılan kutunuza bir makro bağlamaktır. Dosyayı inceleyin.
 
makro bağlaroı kı bağlantıyı tıklmadan resim gelmiyor
 
Evet açılan kutudan bir isim seçtiğinizde seçilen isme ait resim gelecektir. İstediğiniz bu değilmiydi zaten.
 
hocam makroya tıklamasan resim değişmiyor. yani ben isim değişince otomatik resim gelsin diyorum. her isimde makroyu tıklamak gerekiyor
 
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.
 
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?
 
ÇÖ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.
 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst