Resim ekleme

[beyaz34]

Resimi ekedigim zaman ( Image1.Picture )bölümüne resimlerin boyutları farklı olduğundan dolayı resimlerde bozulma oluyor bu
olayı halletmenin bir yolu varmı ?
----------------------------------------------------------------------------------------
Private Sub CommandButton5_Click()
If TextBox3.Text = "" Then
MsgBox "Önce Pul Orijinal Adı: Seçiniz.", , "Pul Arsivi"
Exit Sub
End If
ChDir (ThisWorkbook.Path)
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", , "KodGenTRKN"
Exit Sub
Else
Image1.Picture = LoadPicture("")
Set ARA = Sheets("TÜRKİYE").Range("C:C").Find(TextBox3, , xlValues, xlWhole)
If Not ARA Is Nothing Then
Sheets("TÜRKİYE").Cells(ARA.Row, "L").Value = yol & dosya & uzanti
Image1.Picture = LoadPicture(yol & dosya & uzanti)

End If
End If
End Sub
----------------------------------------------------------------------------------------İlginiz için tesekkürler iyiçalışalar dilerim......

 

[Orion1]

VBE'deyken İmage1 e sağ tıklayıp propertiesi seçin.
Oradanda Picturesizemode dan bir seçenek seçip deneyin.Bir tanesi siznin istediğiniz gibidir.

 

[beyaz34]

Evren Gizlen kardesime tesekkür ederim hayatında basarılar dilerim...

 

[Orion1]

Evren Gizlen kardesime tesekkür ederim hayatında basarılar dilerim...

Rica ederim.
İyi çalışmalr.