Resim Boyutlandırma

igultekin2000

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
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.
Kod:
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.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ben olsam nette loadpicture+resize+vba ifadesi ile arama yapardım.
 

Cengiz Demir

Altın Üye
Katılım
29 Haziran 2018
Mesajlar
581
Excel Vers. ve Dili
Office 365 TR (32 Bit)
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..
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu kodu denermisiniz.

Kod:
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

Altın Üye
Katılım
5 Eylül 2007
Mesajlar
1,236
Excel Vers. ve Dili
ofis 2010
Bu kodu denermisiniz.

Kod:
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
 
Üst