Userform'a fotoğraf koymak

[muygun]

Merhaba;
Ekteki uygulamayı inceleyin. (size fikir verecektir)
İyi çalışmalar.

 

[Korhan Ayhan]

Bu şekilde kullanımda genelde dosyada yavaşlama ve boyut büyüme yaşanıyor.

Tabiki tercih sizin. Sonuçta siz kullanacaksınız.

 

[muysun35]

Hocam listeye tıklayınca, bilgilerle beraber fotoğraf da gelsin istediğim. Ama siliniyor

Korhan Hocamın dedikleri paralelinde;

Private Sub resim_getir ()
Dim ResimAdi As String, ResimKlasoru As String, DosyaYolu As String,  TamDosyaYolu As String

'Resim dosyası ve resim klasorunu alma
ResimAdi = ActiveCell.Value
ResimKlasoru = "images\"
DosyaYolu = NavigateFromWorkBookPath ()

'Resim yolunu alma
TamDosyaYolu = DosyaYolu & ResimKlasoru & ResimAdi

'resmi pictureboxa yükleme
If Dir(TamDosyaYolu) <> "" Then
Image1.Picture = LoadPicture(TamDosyaYolu)
Image1.PictureSizeMode = 3
Else
Msgbox "Resim dosyası yüklenemedi - Dosya bulunamadı"
End If
End Sub

Private Function NavigateFromWorkBookPath () As String
Dim DosyaKlasorYolu As String, Slashisareti As Integer, ResimKlasorYolu As String
DosyaKlasorYolu = ThisWorkbook.Path
Slashisareti = InStrRev(DosyaKlasorYolu, "\")
ResimKlasorYolu = Left(DosyaKlasorYolu, Slashisareti)
NavigateFromWorkbookPath = ResimKlasorYolu
End Function

Buraya aktif hücre değerine göre değişen değerler verilebilir.. (Altın üye olmadığımdan örnek dosya indiremiyorum, bu yüzden editleme işi size ait @muratgunay48 )

 

[Mahmut Bayram]

Şu dosyayı inceleyiniz AllahuAlem böyle bir şey istiyorsunuz.
2.Mesajdaki dosya.

Combobox içeriğine göre resim çekme

merhaba, kolay gelsin. Bir dosya içerisinde numaralandırılmış jpg formatında resimler var. Userform içerisinde de 1 adet combobox bir adet ise image nesnesi mevcut. Ben comboboxa numarasını yazdığım resmin image içerisinde görüntülemek istiyorum. Yardımcı olabilir misiniz?

www.excel.web.tr

 

[muratgunay48]

Bu şekilde kullanımda genelde dosyada yavaşlama ve boyut büyüme yaşanıyor.

Tabiki tercih sizin. Sonuçta siz kullanacaksınız.

Teşekkür ederim hocam.

 

[muratgunay48]

Şu dosyayı inceleyiniz AllahuAlem böyle bir şey istiyorsunuz.
2.Mesajdaki dosya.

Combobox içeriğine göre resim çekme

merhaba, kolay gelsin. Bir dosya içerisinde numaralandırılmış jpg formatında resimler var. Userform içerisinde de 1 adet combobox bir adet ise image nesnesi mevcut. Ben comboboxa numarasını yazdığım resmin image içerisinde görüntülemek istiyorum. Yardımcı olabilir misiniz?

www.excel.web.tr

Hocam şu an bilgisayarda değilim ama, yazıyı okuduğum kadarıyla aynen böyle.
Teşekkür ederim.

 

[muratgunay48]

Korhan Hocamın dedikleri paralelinde;

Private Sub resim_getir ()
Dim ResimAdi As String, ResimKlasoru As String, DosyaYolu As String,  TamDosyaYolu As String

'Resim dosyası ve resim klasorunu alma
ResimAdi = ActiveCell.Value
ResimKlasoru = "images\"
DosyaYolu = NavigateFromWorkBookPath ()

'Resim yolunu alma
TamDosyaYolu = DosyaYolu & ResimKlasoru & ResimAdi

'resmi pictureboxa yükleme
If Dir(TamDosyaYolu) <> "" Then
Image1.Picture = LoadPicture(TamDosyaYolu)
Image1.PictureSizeMode = 3
Else
Msgbox "Resim dosyası yüklenemedi - Dosya bulunamadı"
End If
End Sub

Private Function NavigateFromWorkBookPath () As String
Dim DosyaKlasorYolu As String, Slashisareti As Integer, ResimKlasorYolu As String
DosyaKlasorYolu = ThisWorkbook.Path
Slashisareti = InStrRev(DosyaKlasorYolu, "\")
ResimKlasorYolu = Left(DosyaKlasorYolu, Slashisareti)
NavigateFromWorkbookPath = ResimKlasorYolu
End Function

Buraya aktif hücre değerine göre değişen değerler verilebilir.. (Altın üye olmadığımdan örnek dosya indiremiyorum, bu yüzden editleme işi size ait @muratgunay48 )

Hocam ilk bölüm resim adı ve bulunduğu klasör mü.
Yani ResimAdi = .......
Resim klasörü = "C\....." gibi

 

[muratgunay48]

Merhaba;
Ekteki uygulamayı inceleyin. (size fikir verecektir)
İyi çalışmalar.

Teşekkür ederim hocam.

 

[muysun35]

Hocam ilk bölüm resim adı ve bulunduğu klasör mü.
Yani ResimAdi = .......
Resim klasörü = "C\....." gibi

evet. kolaylık olsun diye değişkenlerin isimlerini belirgin atamaya dikkat ettim.

 

[muysun35]

resim adı = activecell yerine herhangi bir nesne (combobox - TextBox) veya bir hücre değeri Sheets(1).Range("A1") gibi konulabilir.

 

[muratgunay48]

Korhan Hocamın dedikleri paralelinde;

Private Sub resim_getir ()
Dim ResimAdi As String, ResimKlasoru As String, DosyaYolu As String,  TamDosyaYolu As String

'Resim dosyası ve resim klasorunu alma
ResimAdi = ActiveCell.Value
ResimKlasoru = "images\"
DosyaYolu = NavigateFromWorkBookPath ()

'Resim yolunu alma
TamDosyaYolu = DosyaYolu & ResimKlasoru & ResimAdi

'resmi pictureboxa yükleme
If Dir(TamDosyaYolu) <> "" Then
Image1.Picture = LoadPicture(TamDosyaYolu)
Image1.PictureSizeMode = 3
Else
Msgbox "Resim dosyası yüklenemedi - Dosya bulunamadı"
End If
End Sub

Private Function NavigateFromWorkBookPath () As String
Dim DosyaKlasorYolu As String, Slashisareti As Integer, ResimKlasorYolu As String
DosyaKlasorYolu = ThisWorkbook.Path
Slashisareti = InStrRev(DosyaKlasorYolu, "\")
ResimKlasorYolu = Left(DosyaKlasorYolu, Slashisareti)
NavigateFromWorkbookPath = ResimKlasorYolu
End Function

Buraya aktif hücre değerine göre değişen değerler verilebilir.. (Altın üye olmadığımdan örnek dosya indiremiyorum, bu yüzden editleme işi size ait @muratgunay48 )

Hocam, bunu fotoğraf seç butonuna mı bağlayacağım.

 

[muysun35]

Hocam, bunu fotoğraf seç butonuna mı bağlayacağım.

evet

 

[muratgunay48]

evet

Hemen deniyorum hocam. Hocam, 1.jpg kabul etmiyor. Resim adı olarak.

 

[muratgunay48]

Merhaba;
Ekteki uygulamayı inceleyin. (size fikir verecektir)
İyi çalışmalar.

Hocam, kafam karıştı. Fotoğraftaki bölümlerin tamamını mı alacağım. Hepsinde Image2 geçiyor. Label18 olanları. Size zahmet baksanız.
Teşekkür ederim. Ayrıca, hepsini alırsam mükerrer başlık hatası veriyor.

 

[muysun35]

Hocam, kafam karıştı. Fotoğraftaki bölümlerin tamamını mı alacağım. Hepsinde Image2 geçiyor. Label18 olanları. Size zahmet baksanız.
Teşekkür ederim. Ayrıca, hepsini alırsam mükerrer başlık hatası veriyor.
Ekli dosyayı görüntüle 222893

ben dosyayı göremediğim için (Altın üye değilim - kredi kartı kullanmıyorum..) en sade şekliyle yazdım kodları, mesela orada İmage1, resim adı, resim klasörü vs kısımları kendi dosyanıza uyarlamanız lazım..

 

[muysun35]

Ayrıca, hepsini alırsam mükerrer başlık hatası veriyor

Fonksiyonu Modül içine alın.. resim getir ise nesne (Cmdbutton vs) üzerinde kalsın

 

[muratgunay48]

Fonksiyonu Modül içine alın.. resim getir ise nesne (Cmdbutton vs) üzerinde kalsın

Şimdi alıyorum hocam.
Hocam, yapamadım sanırım
Resmin bulunduğu klasör...
C:\Users\muratgunay48\Desktop\resim\
Resmin adı...
minik.jpg
Userform'da kişilerin fotoğraflarının geleceği yer... Image2
Size zahmet yerlerine koyabilir misiniz. Boyuna hata veriyor.

 

[muygun]

örnek dosyanıza göre
ekteki gibi mi?

 

[muratgunay48]

örnek dosyanıza göre
ekteki gibi mi?

Evet hocam, teşekkür ederim.