Scale a picture to fit a userform

G

Giordano Bruno

Well-known Member
Joined
Jan 7, 2007
Messages
1,356
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.
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
Sort by date Sort by votes
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.​
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Question Question
Chart re-size issue
Replies
3
Views
66
Domenic
D
Sumeluar
  • Question Question
Insert Picture as Icon with Custom Name
Replies
7
Views
180
Domenic
D
Q
  • Question Question
Import multiple photos from folders in columns
Replies
2
Views
213
Qba
Q
N
  • Question Question
Infinite loop slideshow
Replies
1
Views
217
Domenic
D
E
  • Question Question
How can u resize the MBs in a image.
Replies
1
Views
192
NdNoviceHlp
NdNoviceHlp

Forum statistics

Threads
1,224,591
Messages
6,179,771
Members
452,941
Latest member
Greayliams

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top