Klasördeki resimleri Excel sayfasına otomatik alma hk.

[rızay]

Merhaba arkadaşlar.
Hepinize hayırlı ramazanlar diliyorum.
Benim sorum şu: Ekte göndereceğim dosyada; D:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde kaydedilmiş(Klasörlerin içine) personel resimleri var. Bu resimleri kod sayfasındaki kod vasıtasıyla dosyadaki FORM_YAZ sayfasında yer alan fotograf bölümüne alamadım. Kod sayfasına bir kısım kodlar yazdım fakat çalıştıramadım.Sitenizde bazı kod örnekleri var fakat onlarıda denedim başaramadım.
Çok acele yardımlarınızı bekliyorum. Siz değerli üstadlarımızın ve site yöneticisi arakadaşların sorunu halledeceğini umuyor.Hepinizi sevgi ve saygılarımla selamlıyorum.
Hamitcan bey'in gönderdiği kodu denedim resimleri alamadım.Yardımcı olacaklara şimdiden teşekkür ederim.Merhaba Hamit Can Bey Resimlerin bulunduğu Klasör şu şekilde: D:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde.Resimler D'nin içinde.
Sayfa2.Image1.Picture = LoadPicture(ThisWorkbook.Path &"burdan sonrasına ne ? yazılacak.(" \") kısmına.

 

[hamitcan]

Bu şekilde deneyin.

Option Explicit

Private Sub Worksheet_Calculate()
On Local Error Resume Next
Sayfa2.Image1.PictureSizeMode = fmPictureSizeModeStretch
    Sayfa2.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Sayfa2.Range("B8").Value & ".jpg")
If Err Then
    Err.Clear
    Sayfa2.Image1.Picture = LoadPicture("")
End If
End Sub

 

[rızay]

Merhaba Hamit Can Bey Resimlerin bulunduğu Klasör şu şekilde:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde.Kodları değiştirdim olmadı
Excel dosyasına yine resmi alamadım.Yardımcı olur musunuz?.Sağ olun. Ben fazla anlamıyorum.

 

[rızay]

Site yöneticisi arkadaşlar cevabınızı bekliyorum.Yukarıdaki sorunuma çözüm bulamadım.

 

[hamitcan]

Resimlerin bulunduğu klasör ile resimleri çağırdığınız dosyayı aynı klasöre ekleyin.

 

[rızay]

Merhaba Hamitcan Bey cevabınız için sağ olun.Ben yapamadım kodlarda siz düzeltip dosyayı tekrar bana bana gönderir misiniz?

 

[rızay]

Resimlerin bulunduğu klasör D:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde.Resimlerin kaydedilmiş yeri bu şekilde. . Aşağıdaki ilgili yere ilave edip tekrar bana gönderir misini? 15 gündür uğraşıyorum yapamadım.Veya dosyada değiştirip gönderirseniz çok memnun olurum.

Option Explicit

Private Sub Worksheet_Calculate()
On Local Error Resume Next
Sayfa2.Image1.PictureSizeMode = fmPictureSizeModeStretch
Sayfa2.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Sayfa2.Range("B8").Value & ".jpg")
If Err Then
Err.Clear
Sayfa2.Image1.Picture = LoadPicture("")
End If
End Sub

 

[hamitcan]

Resimlerin bulunduğu klasör ile resimleri çağırdığınız dosyanın aynı klasörde olduğuna emin olun.
Resim isimlerinin, kişi isimleri ile aynı olduğuna emin olun.

 

[rızay]

Resimlerin bulunduğu klasör ile resimleri çağırdığınız dosyayı aynı klasöre ekleyin.

Resimlerin bulunduğu klasör D:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde.Resimlerin kaydedilmiş yeri bu şekilde. . Aşağıdaki ilgili yere ilave edip tekrar bana gönderir misini? 15 gündür uğraşıyorum yapamadım.Veya dosyada değiştirip gönderirseniz çok memnun olurum.

Option Explicit

Private Sub Worksheet_Calculate()
On Local Error Resume Next
Sayfa2.Image1.PictureSizeMode = fmPictureSizeModeStretch
Sayfa2.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Sayfa2.Range("B8").Value & ".jpg")
If Err Then
Err.Clear
Sayfa2.Image1.Picture = LoadPicture("")
End If
End Sub

 

[rızay]

Resimlerin bulunduğu klasör ile resimleri çağırdığınız dosyanın aynı klasörde olduğuna emin olun.
Resim isimlerinin, kişi isimleri ile aynı olduğuna emin olun.

Günaydın Hamit bey nasılsınız? ben şu an işyerindeyim ya siz vallahi yapamadım kodda düzeltirmisiniz? yapamıyorum.Dosyada da yapabilirsiniz.Resimler Rkimlikno.jpg şeklinde kaydedilmiş.D:\APer_Memur\Resim_Mem\Rtckimlikno.jpg şeklinde ör:kimlik no 12345647852 ise
R12345647852.jpg şeklinde kaydedilmiş.Kodda yapar mısınız? Resimleri bu şekilde kimlik numarasına göre çağırıyoruz. Excel dosyası da bu APer_Memur Klasörünün içindemi? olacak.

 

[hamitcan]

Eki inceleyin.