Kod ile excel in içine resim kaydetme

[huseyintekin]

Merhabalar,

Excel de yapmış olduğum bir uygulama var. Sql database inden stok listesi alıyorum. Stoklara ait resimleri ilk önce windowsa bir klasöre atıyorum. daha sonra bu resimleri de kodla excelin içine alıyorum.

Sorun şu; exceli resimlerin olduğu bilgisayarda açarsam resimler görünüyor fakat başka bilgisayarda açtığımda resimler gelmiyor. Resim bozulmuş yada dosya yolu hatalı gibi bir uyarı veriyor. Muhtemelen benim kullandığım kodlar excele sadece dosya yolunu kaydediyor.

Resmi direk excelin içine kaydeden bir kod lazım. Yada bunu nasıl sağlayabilirim?

 

[systran]

çalışmanızın örneğini, dosya paylaşım sitelerine yükleyip buradaki konuda linkini paylaşınız. Çalışmalarınızı paylaşırken içerdiği verilerin kişisel bilgiler OLMAMASINA (T.C. Kimlik, açık adres, tel) dikkat ediniz.

 

[tugkan]

Merhaba,
Bu konuyu uzun süre ben de araştırmıştım.Aşağıdaki kod, resimleri sıralı olarak istediğiniz klasörden çekebilmenizi sağlıyor. Sorularınız olursa bildiğim kadarıyla cevaplamaya çalışırım.


Private Sub MAKRO1()
ActiveSheet.DrawingObjects.Delete

Dim x

For i = 1 To 100


x = i * 1

Cells(x, "F").Select
resimadi = LoadPicture("")
resimadi = Cells(x, "B").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("c:\RESİMLERİ\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 50
Selection.ShapeRange.Width = 110
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft 0.49
Selection.ShapeRange.IncrementTop 0.31


Next

End Sub