a hücresinde kodun resmini, b hücresine getirtme

[ebus_d]

Forumu bayağı bir dolaştım, bu konuda çok soru sorulmuş ama ya cevap yok yada kodlar kapalı gönderilmiş.
Basit bir şekilde A1 hücresinde stok kodu yazıyor. Örneğin "500"
B1 hücresine bu stok kodunun resmini getirmek istiyorum Örneğin "500.jpg" şeklinde.
Bu resimler sabit bir dosyada ve tüm resimler stok kodunun ismiyle kayıtlı.
Yardımlarınızı önemle rica ediyorum!!!!

 

[Emir Hüseyin Çoban]

. . .

resimadi şeklinde forumda aratınız...

. . .

 

[ebus_d]

Merhaba,
Buradan bulduğum aşağıdaki kodlarla işimi hallettim.
Yalnız mail ile bir başkasına yolladığım zaman resimler görünmüyor.
Sanırım nesne olarak eklediği için oluyor yada sebebini bilen var mıdır?
Yardım Lütfen...


Application.ScreenUpdating = False
On Error Resume Next
For i = 2 To Cells(Rows.Count, "B").End(3).Row
Cells(i, "F").Select
resimadi = LoadPicture("")
resimadi = Cells(i, "B").Text & ".jpg"
yoll = "E:\Urunler"
hepsi = yoll & "\" & resimadi
ActiveSheet.Pictures.Insert(hepsi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Range("B2").Height
Selection.ShapeRange.Width = Range("B2").Width
Selection.ShapeRange.Rotation = 0#

Next i
Application.ScreenUpdating = True

 

[ebus_d]

Yardım edebilecek kimse yok mu
Yaptım diye müdürlerime gönderdim, rezil oldum.
Çünkü kendi bilgisayarımda resimleri ekleyip istediğimi yapıyorum.
Ama mail atınca başka bilgisayarda açılmıyor

 

[Emir Hüseyin Çoban]

Tablonuzun örnek halini ve resim yukleyin.

.