Userform'a resim yükleme

[jacckhal]

arkadaşlar ben bir forum yaptım ve bu foruma resim yüklemek istiyorum.
Örneğin. sitelerdeki gibi tıklayınca resimin bulunduğu dizini seçip resmi forma aktarmak.

Yardımlarınız için şimdiden teşekkürler.

 

[jacckhal]

Arkadaşlar hiç bilen tok mu?
Lütfen yardımcı olun!

 

[dEdE]

Merhaba,
Forumda arama yapmayı denediniz mi?

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-ornek-dosya-t22790.html

 

[jacckhal]

İlgin için teşekkürler ama verdiğin link silinmiş ve ayrıca arama yaptım ama aradığı yok. yardımcı olursan sevinirim.

 

[dEdE]

Örnek dosyanızı eklerseniz daha çabuk yanıt alırsınız.

 

[jacckhal]

Yardımlarınız için şimdiden teşekkürler.

örnek dosya ektedir..

 

[jacckhal]

Yardımlarınız için şimdiden teşekkürler.

örnek dosya ektedir..

Haydi üstadlar yardımlarınızı bekliyorum.

 

[şahrapçi]

Resim ekleme

Arkadaşım access te olsa örnek vardı falat excel istiyosun sen

 

[jacckhal]

Arkadaşım aradım bulamadım burda diyorsun ama bulamadım sen biliyorsan yardımcı olurmusun..

Tek eksiğim bu kaldı bunuda yaparsam tamamlayacağım.

 

[Korhan Ayhan]

Selamlar,

Forumda "image" diye aratsaydınız bir sürü örnek kod bulabilirdiniz.

http://www.excel.web.tr/search.php?searchid=987751


Bulduğum bir kodu sizin formunuza uyarladım. İncelermisiniz.

Private Sub CommandButton1_Click()
    Dim Dosya As String
    Dosya = Application.GetOpenFilename("JPG Resim Dosyaları (*.jpg),*.jpg),BMP Resim Dosyaları (*.bmp),*.bmp")
    If Dosya <> "" Then
    Image1.Picture = LoadPicture(Dosya)
    Image1.PictureSizeMode = fmPictureSizeModeStretch
    End If
End Sub

 

[jacckhal]

Gerçekten süpersiniz çok teşekkür ederim aradığım tam anlamıyla bu.
Ellerinize sağlık.