Yol bilgisinden resim nesnesinde foto göstermek nasıl olur?

[nemgerek]

Merhaba,

excel dosyası ile aynı dizinde resimler var bir klsörde. Excel sayfasında bu resimleri yol bilgisini alıp göstermek istiyorum.

Örneğin dosyamız D:\Uygulama dizinininde. Resimler ise D:\Uygulama\Resimler klasöründe. Fakat uygulamanın kendi bulunduğu dizine kadar olan kısmı ototmatik alamsını ve geriye kalan resim yol bilgisi ile birleştirmesini istiyorum. Yani D:\Uygulama kendiliğinden gelmeli ve dizin değişse bile sorun çıkmamalı. Sonra xls sayfasında ise buna eklenen adem.jpg dosyasınınn adının eklenmesini ve oluşan yol bilgisinden yola çıkarak bu resmin görüntülenmesi lazım.

Çok çok teşekürler.

 

[nemgerek]

yardımcı oalbilecek kimse yok mu?

 

[Orion1]

Dosyanzı ektedir.

Sub Grup4_Tıklat()
Sheets("Sayfa1").Image1.Picture = LoadPicture("")
Sheets("Sayfa1").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resimler\Gökyüzü.jpg")
End Sub

 

[nemgerek]

çok sağolun. bunu birden çok kayıt için uygualayacağım. Resimsiz tadı tuzu olmuyor.

İyi günler dilerim.

 

[Orion1]

çok sağolun. bunu birden çok kayıt için uygualayacağım. Resimsiz tadı tuzu olmuyor.

İyi günler dilerim.

Rica ederim.
İyi günler.

 

[nemgerek]

çizelgemdeki kişiler için tek tek mektuplar vs çıkarmak istiyordum fotoğraflı olarak. Bunun için Word kullanmanın daha uygun olacağını düşündüm. ad soyad ve resim yol bilgilerini excel'den alıp word'e aktardım. orda ise şu kodu kullandım sizden öğrenerek:

ThisDocument.Image1.Picture = LoadPicture("")
ThisDocument.Image1.Picture = LoadPicture(ThisDocument.Path & "Mavi.jpg")

ama çalışmadı. kimlik vb çıktılar için excel çok iyi ama parağraf ve metin biçimlendirmeli işler için Word'ün gücünü kullanmak istiyorum. Bu resim yolundan resmi görüntüleme Word ile çalışmaz mı?

Excel'deki verileri(ad soyad ve resim yolunu) direk word'e toplu oalrak aktarıp yayınlayabilir miyiz? Bu sırada resimlerin yolunu değil kendisi göstermeli.

Konu dallandı ama malasef iş bilmeyince böyle oluyor. Teşekkürler.