İsmi kriter alarak resim çağırma

[EKREM1661]

Değerli Arkadaşlar..! Resim çağırma ile ilgili olarak, geçen sene forum sitemizden edindiğim bir alıntı var. Ancak bir özelliği nedeni ile kendime uyarlayamadım.

Excel dosyasında isim üzerine tıklayınca klasör içindeki resmi çağırıyor. Fakat isimlere verilen sıra numarası ile resimlere verilen sıra numarasını karşılaştırarak çağrışım yapıyor. Bu durum; listeye yeni isimler girip alfabetik sıralama yaptığın zaman, tüm resimlerdeki numaraları da, isimlere denk düşen numara ile aynı olması için, hepsini yeniden değiştirmek gerekiyor.

Hem isme, hemde resme numara vererek değil de; resme sadece isim vererek, listedeki ismi karşılaştırmak suretiyle çağrışım yaptıramaz mıyız.?

 

[Husgvarna]

Eki inceleyiniz.

 

[EKREM1661]

Sn.Husgvarna..! harikuladesiniz.. Size uzmanlık yakışır..Çok memnun oldum ve çok teşekkür ediyorum.. Hoşça kalınız..

 

[1mak1mak]

Eki inceleyiniz.

Bu Kod çok güzel olmuş Teşekkürler.

Acaba şu şekilde geliştirilse daha iyi olmazmı.

Diyelimki bir klasörümüz olsun bu klasörde bir sürü farklı isimlerde resim var.
Klasörün yolunu girelim oradaki tüm resimlerin isimlerini kendi alsın alt alta sıralasın
böylece tek tek isim girme sıkıntısı kalmasın.

 

[alptun20]

Bu Kod çok güzel olmuş Teşekkürler.

Acaba şu şekilde geliştirilse daha iyi olmazmı.

Diyelimki bir klasörümüz olsun bu klasörde bir sürü farklı isimlerde resim var.
Klasörün yolunu girelim oradaki tüm resimlerin isimlerini kendi alsın alt alta sıralasın
böylece tek tek isim girme sıkıntısı kalmasın.

Private Sub UserForm_Initialize()
Klasor = "[COLOR="Red"]YOLU BURAYA YAZIN[/COLOR]"
Dim Dosya As String
On Error Resume Next
ComboBox1.Clear
Dosya = Dir(Klasor & "\*.jpg")
Do While Dosya <> ""
ComboBox1.AddItem Dosya
Dosya = Dir
Loop
End Sub

UserFormunuza ComboBox ekleyip yukarıdaki kodu denermisiniz. (Kod Halit Hocama aittir)

 

[1mak1mak]

Private Sub UserForm_Initialize()
Klasor = "[COLOR="Red"]YOLU BURAYA YAZIN[/COLOR]"
Dim Dosya As String
On Error Resume Next
ComboBox1.Clear
Dosya = Dir(Klasor & "\*.jpg")
Do While Dosya <> ""
ComboBox1.AddItem Dosya
Dosya = Dir
Loop
End Sub

UserFormunuza ComboBox ekleyip yukarıdaki kodu denermisiniz. (Kod Halit Hocama aittir)

UserFormun kod sayfasının altına ekledim ama olmadı.
UserFormda combobox nasıl ekleyecem anlamadım.
Ben Excel sayfasına yukardan aşağıya listelemek istedim.

 

[baydeniro]

Harika bir çalışma. Paylaşım için çok teşekkürler. PDF formatındaki görüntüleri de almanın bir yolu var mı ?