- Katılım
- 9 Kasım 2020
- Mesajlar
- 39
- Excel Vers. ve Dili
- 365 türkce
- Altın Üyelik Bitiş Tarihi
- 16-04-2024
arkadaşlar aşağıdaki kodlarda image1 nesnesine klasörden seçtiğim resimi ekmek için eksik olan koda ihtiyacım yardımcı olurmusunuz teşekkürler
Dim Dosya As Variant
Dim Yol As String
Dim uzanti As String
ChDir ("C:\Users\ekmek\Desktop\fiyat artış\Resimler")
Dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.jpg", _
Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If Dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi", , "excel.web.tr"
Exit Sub
Else
Image1.Picture = LoadPicture("")
'Image1.Picture = LoadPicture(Sheets("bilgi").Cells(3, "j").Value)
End If
Dim Dosya As Variant
Dim Yol As String
Dim uzanti As String
ChDir ("C:\Users\ekmek\Desktop\fiyat artış\Resimler")
Dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.jpg", _
Title:="Lütfen resim seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If Dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi", , "excel.web.tr"
Exit Sub
Else
Image1.Picture = LoadPicture("")
'Image1.Picture = LoadPicture(Sheets("bilgi").Cells(3, "j").Value)
End If