UserForm a alınan resmin boyutunu ayarlamak

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Bu makro resmi userforma yüklüyor.

Sub UserForm_Resim()
Dim yol
    yol = ActiveWorkbook.Path & "\TK_Foto\" & [A1]
        With Application.FileDialog(msoFileDialogOpen)
            UserForm1.Show 0
            UserForm1.Picture = LoadPicture("")
            UserForm1.Picture = LoadPicture(yol)
        End With
End Sub

Userform ve resmin boyutlarını belirleme durumum var mıdır? (resimler 959 x 1008 pixel)
Saygılarımla

 

[Suskun]

Kaça kaç boyutlandırmak istiyorsanız aşağıdaki kodları

Picture.Width=100 'Genişlik
Picture.Height=180 'Yükseklik ,Boy

with içinde deneyin

 

[Tevfik_Kursun]

Sayın Suskun,
Hata veriyor
Saygılarımla

 

[Haluk]

UserForm'un adı neyse, onu kullanacaksınız.....

Userform1 >>>Userform_Resim

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Hata mesajı değişti
Saygılarımla

 

[Haluk]

O satırları silip, yerine;

me.width = 100
me.height = 200


gibi deneyin ....

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Yeni hata mesajı
Saygılarımla

 

[Haluk]

o zaman;

userform1.width=100
userform1.height=200

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Yeni hata mesajı
Saygılarımla

 

[Haluk]

ikinci satırı yanlış kopyalamışsınız.

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Dikkatinize hayranım. Evet çalıştı. Bu yapılan userform un boyutlarını etkiliyor. İçindeki jpg resmi etkileyecek ne olabilir? (resimler 959 x 1008 pixel)
Saygılarımla

 

[Suskun]

o zaman;

userform1.width=100
userform1.height=200

Haluk beyin bu kodu user formu Boyutlandır.
Userform1 içine
Private Sub UserForm_Activate()
Image1.Width = 210
Image1.Height = 240
end sub
olarak deneyin
Userform Toolbox tan dan image ekleniyor Picture yaptıysanız o şekil değiştirin.

 

[Tevfik_Kursun]

Sayın Suskun,
Resim klasörden geliyor, sanırım bu nedenle hata veriyor
Saygılarımla

 

[halit3]

Belki formun bu özelliği işinizi görür PictureSizeMode

UserForm1.PictureSizeMode = fmPictureSizeModeStretch

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
Evet, haklısınız. Çok teşekkür ederim. Problemi çözdü ama resmin canlılığı gitti. Halbuki resim küçülürken daha canlanır. Düşündüğünüz bir şey olursa paylaşın lütfen.
Saygılarımla

 

[Suskun]

fmPictureSizeModeStretch resmi çerçeveye enine boyuna bakmadan yerleştirir.

UserForm1.PictureSizeMode = fmPictureSizeModeZoom

deneyin resminizi çerçevenizin boyutuna orantılı olarak küçültmesi gerekir.

 

[Tevfik_Kursun]

Sayın Suskun,
Evet, çok teşekkür ederim.
Saygılarımla

 

[halit3]

Bir adet resim ekleyiniz
Birde userform da olması gereken genişlik ve yükseklikleri belirtiniz ona göre dosyalarınızı buraya ekleyiniz.

 

[Tevfik_Kursun]

Sayın Halit3 Hocam,
İlginize çok teşekkür ederim. Uygun boyutta olsun yeterli. Gerekirse değerleri dışardan aldırırım.
Saygılarımla

 

[halit3]

bu resmin boyutları bende 143-150 olarak gözüküyor.
sizde de böylemi
diğer soru bu resmin userforma hangi ölçülerde olmasını istiyorsunuz.