Hücreye Dizinden Resim Çekme

[infom]

Merhaba Arkadaşlar Cümleten Hayırlı Günler Dilerim.

Arkadaşlar yine sizleri rahatsız ediyoruz kusurumuza bakmayın, Ancak naçizane burdan başka da bu işi çözebilecek birini tanımıyorum. Burda ki kardeşler üstad gerçekten. Hepinize ve excel.web.tr yönetimine bizlere bu imkanı sunduğu için teşekkür ederim.

Şimdi değerli üstadlar, elimde mevcut bir döküman var, 300 400 tane resmin bulunduğu bir klasör ve klasörde ögrenci numaraları-isim şeklinde resimler var,

Bizim talebimiz şu;

a hücresinde bulunan sicilleri, klasördeki resimlerin isimlerine bakarak aynı olanları e2 hücresine resim olarak eklemesi

Bununla ilgili olarak yardımlarınızı bizlerden esirgemezseniz çok memnun kalıcaz.

Cümleten teşekkür eder, Saygılar Sunarım.

 

[Muzaffer Ali]

Merhaba ehlen ve sehlen hoşgeldiniz:hey:

Konu başlığını sorunuza uygun olarakn değiştirmelisiniz.

 

[suleyman242]

naçizane

"naçizane" bence konu başlığını soruna göre değiştirmessen pek dosyaya bakan olmaz :tongue:

 

[infom]

abiler haklısınız da aceleden öyle yazmışım ya özür dilerim gerçekten.

değiştirme yetkim yok ki yapamadım. düzenlemede çıkmadı.

 

[YUSUF44]

Başlığı düzeltme: http://www.excel.web.tr/f59/acylan-konu-ba-lyoyny-duzeltmek-t81476.html

 

[infom]

Başlığı düzeltme: http://www.excel.web.tr/f59/acylan-konu-ba-lyoyny-duzeltmek-t81476.html

Abi çok teşekkür ederim. Ama anasayfa da ki url değişmedi sanırım.

Edit: Dün değişmemişti bugün (14.06.2013) tarihi itibariyle başlık düzelmiş tşk ederim. yönetime.

 

[EXTRANET]

merhaba
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete
Range("e2").Select
resimadi = LoadPicture("")
resimadi = Range("a2").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("resim dosyasının olduğu yer kopyalanacak" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 260 'yükseklik
Selection.ShapeRange.Width = 250 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("a9").Select
End Sub


denermisiniz

 

[infom]

abi bu kodu nereye eklicem makro bölümüne vs yaptım düğme ekledim ancak yinede olmadı ?

 

[YUSUF44]

Kodu ilgili sayfa sekmesine sağ tıklayıp kod görüntüle dedikten sonra çıkan sayfaya yapıştırın.

 

[doganbaris]

dosya hali

EKSTRANET'in kodunda bir iki küçük düzenleme ile...

istediğiniz sayıda yapmak için döngüye sokarak rangeleri güncellemeniz lazım.

not:
çalışma adındaki doganbaris a bakip da kendine pay çıkarmış demeyin, sadece bu forum için yaptığım çalışmaları takibi kolay olsun diye bu şekilde takip ediyorum, hepsi bu... Kod EKSTRANET'in kodudur.