Excele dosyadan resim çağırmak

[cihano]

Saygıdeğer Arkadaşlar.

Elimde bir dosyam var. ( Ekte Mevcut ) Sarı alana Personel Kimlik Numaralarını düşey arayla getirdiğimde sarı renk ile boyadığım yere personelin resmi gelsin istiyorum. ( Mümkünse Resim Boyutunu otomatik ayarlarsa çok iyi olur benim için )

Resimleri Bu klasöre koyuyorum. C:Resimler

 

[cihano]

yokmu yardımcı olacak kimse :-(

 

[kulomer46]

Merhaba

Deneyiniz.

Hayırlı Çalışmalar Dilerim...

 

[cihano]

Saygıdeğer Hocam , Emeğinize sağlık çok güzel olmuş.
Fakat ufak bir problemim var. TC Yazdığım hücreye resim geliyor imza yazan yerin karşılığına nasıl getirebilirim.

 

[kulomer46]

Saygıdeğer Hocam , Emeğinize sağlık çok güzel olmuş.
Fakat ufak bir problemim var. TC Yazdığım hücreye resim geliyor imza yazan yerin karşılığına nasıl getirebilirim.

Değerli Arkadaşım Tekrar Merhaba

Aşağıdaki dosyayı deneyiniz.

Hayırlı Çalışmalar Dilerim.

 

[cihano]

Oldu Çok teşekkür ederim emeğinize sağlık..

 

[kulomer46]

Oldu Çok teşekkür ederim emeğinize sağlık..

Rica ederim selamlar değerli kardeşim

 

[sosyete33]

Merhabalar elimdeki dosyaya istinaden , resimlerin sütunlara değilde satırlara gelmesi şeklinde ,A2 ye kodu yazınca A1 de resim , b2 ye kodu yazınca b1 de resim ..... şeklinde

Sub Test()

Dim NoA As Long, i As Long
Dim PicFile As String, PicTop As Integer, PicLeft As Integer, PicW As Integer, PicH As Integer
NoA = Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To NoA
PicFile = "d:\Desktop\pics\" & Range("B" & i).Text & ".jpg"
If Dir(PicFile) = Empty Then
Range("A" & i) = "Resim bulunamadı..!"
GoTo ResumeFor:
End If
PicTop = Range("A" & i).Top
PicLeft = Range("A" & i).Left
PicW = Range("A" & i).Width
PicH = Range("A" & i).Height
Set MyPic = ActiveSheet.Shapes.AddPicture(PicFile, True, True, PicLeft, PicTop, PicW, PicH)
ResumeFor:
Next
End Sub