Scale a picture to fit a userform

[Giordano Bruno]

I have the following code which displays the middle 10% or so of an image on a file:

Sub ShowPic()
Dim Pic As String
Pic = "F:\Data\DCP_0102.jpg"
UserForm1.Picture = LoadPicture(Pic)
UserForm1.Show
End Sub

How can I modify the code to scale the image to the size of the user form. All my images are the same format and I can format the userform to approximate this format, but I want to see all of the image.

 

[texasalynn]

take a look at this

PictureSizeMode Property
Another property of the image control is the PictureSizeMode.

If the property is set to the default value 0-frmPictureSizeModeClip the control size can be changed without the picture size being modified. So you can see only part of the picture or there can be a background behind it in a clolor color you can change at will.

If the property is set to the 1-frmPictureSizeModeStretch the picture is resized as the control is. The image fills the control.

If the property is set to the 3-frmPictureSizeModeZoom the picture is resized as the control is but the picture and background are present.​

 

[Giordano Bruno]

Thanks for that Texasalynn,

Excellent advice. Setting it to 3 solves my problem.