Klasörden Resim Alma

[imdatsaral]

sevgili arkadaşlar,

UserForm Üzerinde :
1 Adet ListBox1
1 Adet Image1

Yazılı Olan Kod :

Private Sub CommandButton1_Click()
ActiveSheet.Pictures.Insert([ListBox1]).Select
End Sub

Private Sub ListBox1_Click()
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture("C:\Resim" & ListBox1)
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
Dim tur(3) As String
tur(1) = "*.bmp"
tur(2) = "*.wmf"
tur(3) = "*.jpg"
i = 1
devam:
If i > 3 Then Exit Sub
ChDir ("C:\Resim")
ResimDosya = Dir(tur(i))
While ResimDosya <> ""
ListBox1.AddItem ResimDosya
ResimDosya = Dir
Wend
i = i + 1
GoTo devam:
End Sub

Bu Kodları arkadaşımız inFiesta Gönderdi Onada çok teşekkür ederim
Çalıştıramadım. Benim istediğim Klasörden Resmi UserForma eklesin Oradanda A1 hücresne Yapıştırsın

İyi çalışmalar

İmdat SARAL
İZMİR

 

[Levent Menteşoğlu]

Sorunuz için öncelikle aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/viewtopic.php?p=10590#10590

 

[imdatsaral]

leventm,

Raider, düzenlemiş olduğu ResimDosya.zip dosyası benim istediğim gibi. Ama ListBox resim isimlerini tıkladığımda hata veriyor.

imdat saral