Resim Bulma

[hakanbolat]

Arkadaşlar Resim Sorusu çok var ama,istediğim cevabı bulamadım,yapmak istediğim Image Nesnesine Sağ klik yapınca açılan picture bölümüne atanan resmi makroyla yapmak,şimdiden teşekkürler..

 

[Levent Menteşoğlu]

Optionbuttona aşağıdaki kodu kopyalayarak deneyin.

[vb:1:daf37099a5]Private Sub OptionButton1_Click()
resim = Application.GetOpenFilename("JPG dosyalari (*.jpg),*.jpg,BMP dosyalari (*.bmp),*.bmp)")
Image1.Picture = LoadPicture(resim)
OptionButton1.Value = 0
End Sub
[/vb:1:daf37099a5]

 

[hakanbolat]

Evet Leventm Bey,Tam İstediğim gibi Teşekkürler,Ama Programı Aç Kapa Yaptıkdan sonra yine eski resim çıkıyor,bunu nasıl kaydedebiliriz..

 

[hakanbolat]

O Sorununuda Resim dosya yolunu bir yere yazdırıp "[a1] = resim" ordanda UserForm Active kısmına yazdığım zaman istediğim resim Orda Kalıyor..