Resim Boyutlandırma

[igultekin2000]

iyi günler, Geliştirici - Resim ekle seçeneğinde çizdiğimiz alana resim yüklerken, çizilen alana resmin sığmasını nasıl yapabiliriz.

Private Sub Image1_Click()
Image1.Picture = LoadPicture("c:\Resim\cicek_1.jpg")
End Sub

bu kodla resmi çağırabiliyoruz, boyutlandırma ve çizilen alana sığdırmayı bulamadım. Çok orjinal örnekler var ama sade haliyle bunu yansıtacak örnek bulamadım. Teşekkürler.

 

[Korhan Ayhan]

Ben olsam nette loadpicture+resize+vba ifadesi ile arama yapardım.

 

[Cengiz Demir]

Image1 objesinin özelliklerindeki (Properties) PictureSizeMode ozelliğini fmPictureSizeModeStech yaparsanız;
resim objenin boyunda olacaktır.
Bu seçenekle en boy oranı korunmuyor. Zoom ile resimi en boy oranı koruyarak da sığdırabilirsiniz.
Yanlız bu durumda da image objesinin boyuna göre, boşuklar kalabilir..

 

[Merhum İdris SERDAR]

Buradaki örneklere bakınız.

http://www.excelgurusu.com/category/re/

.

 

[halit3]

Bu kodu denermisiniz.

Private Sub Image1_Click()

Set Adres = ActiveWindow.RangeSelection 
'Image1.Picture = LoadPicture("c:\Resim\cicek_1.jpg")
With Image1
.Top = Adres.Top + 1
.Left = Adres.Left + 1
.Height = Adres.Height - 2
.Width = Adres.Width - 2
.Object.PictureSizeMode = fmPictureSizeModeStretch
End With
End Sub

 

[igultekin2000]

Bu kodu denermisiniz.

Private Sub Image1_Click()

Set Adres = ActiveWindow.RangeSelection
'Image1.Picture = LoadPicture("c:\Resim\cicek_1.jpg")
With Image1
.Top = Adres.Top + 1
.Left = Adres.Left + 1
.Height = Adres.Height - 2
.Width = Adres.Width - 2
.Object.PictureSizeMode = fmPictureSizeModeStretch
End With
End Sub

Teşekkür ederim sorunsuz çalıştı, iyi çalışmalar