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