Klasörden resim çağırma

[QNURi]

Aşağıdaki tabloda sol sütun resmin dosya adıdır. Sağ sütun ise o dosyanın kendisidir.

Sol tarafa numarayı yazdığımda sağdaki hücrede resmi görmek istiyorum. Resimlerin hepsi bir klasörde bulunuyor (5.000 den fazla resim var.)

Nasıl yapabiliriz sizce?

Ekli dosyayı inceleyiniz.

 

[Orion1]

Word dosyası ile değilde excel ile ,Excel dosyası ve resimler ayni klasörün içinde olmalı ve dosya uzantıları jpg veya gif olamlıdır.
Dosya ektedir.

Sub resimleri_al()
Dim resim As Shape, i As Long, yol As String, dosya As String
Sheets("Sayfa1").Select
yol = ThisWorkbook.Path
For Each resim In ActiveSheet.Shapes
    If resim.Name <> "Button 5" Then resim.Delete
Next
For i = 2 To Cells(65536, "A").End(xlUp).Row
    Cells(i, "B").Select
    If Dir(yol & "\" & Cells(i, "A").Value & ".jpg") <> "" Then
        dosya = "\" & Cells(i, "A").Value & ".jpg"
    End If
    If Dir(yol & "\" & Cells(i, "A").Value & ".gif") <> "" Then
        dosya = "\" & Cells(i, "A").Value & ".gif"
    End If
    ActiveSheet.Pictures.Insert (yol & dosya)
Next i
MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[Civan Jack]

Evren hocam bunu form üzerinde yapabilir miyiz ?
Yani .gif resmi form üzerinde gösterebilir miyiz acaba ?
Bu konu ile ilgili yeni bir başlık açtım, ama buradaki konuda aynı gibi o yüzden buradan da sormak istedim. Form üzerinde gif resimleri gösterebilir miyiz ?
Ya da flash göstermesini biliyorum. Elimdeki gif leri .swf ye mi çevirsem nasıl kolay olur acaba ?

 

[Orion1]

Evren hocam bunu form üzerinde yapabilir miyiz ?
Yani .gif resmi form üzerinde gösterebilir miyiz acaba ?
Bu konu ile ilgili yeni bir başlık açtım, ama buradaki konuda aynı gibi o yüzden buradan da sormak istedim. Form üzerinde gif resimleri gösterebilir miyiz ?
Ya da flash göstermesini biliyorum. Elimdeki gif leri .swf ye mi çevirsem nasıl kolay olur acaba ?

Forma bir tane image nesnesi ekleyin.
resimleri image nesnesinde gösterin.

 

[HakanSENGUL]

Güncel Kodlar

Merhaba
Buradaki resim çağırma ile ilgili ihtiyacım oldu. Yalnız biraz daha güncel ihtiyaca göre nasıl yaparız.

Sorum şu:
Dernekteki üye bilgilerini farklı bir formda çağırmak ve bastırmak istiyorum.
Düşey ara (vlookup) ile istediğim tabloda değerleri çağırdım.
Örn a sütununda istediğim adet satırda bu resimleri göstermek istiyorum.
Örneğin a1:a4 arasındaki bölümü birleştirdim.

sorun şu ki. bir kişiyi çıkardığımda veya eklediğimde
resimler de güncellenmeli.,

Şimdiden emeğinize sağlık

 

[tahsinanarat]

Sn. HakanSENGUL, Örnek bir dosya eklerseniz daha çabuk cevap alabilirsiniz.