- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
- Altın Üyelik Bitiş Tarihi
- 20-05-2022
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
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