Todd,
Back in the office now. Looks like it's just UserForm.Zoom = ____. Obviously, you don't need to use a scrollbar, you can set the zoom however you need to. But I found this a convenient tool to give the user.
Code on the scrollbar:
Code:
Private Sub ScrollBarZoom_Change()
UserFormReconcile2.Zoom = ScrollBarZoom.Value
UserFormReconcile2.LabelZoom = "Zoom = " & ScrollBarZoom.Value
End Sub
Code in UserForm_Initialize
Code:
ScrollBarZoom.Max = 100
ScrollBarZoom.Min = 50
ScrollBarZoom.Value = 100
UserFormReconcile2.Zoom = 100
In addition to the scrollbar, I have a label beside it that tells the user the zoom factor. In my case, I was trying to make the form run on users that were still on 640 × 480 resolution, so I needed to shrink it. This is rather relevant because
zoom does not resize the window. It makes the objects on the form smaller or bigger, but the frame of the window the form is displayed in does not change size. Since I was only shrinking and not enlarging, I didn't try to figure out how to alter the form's window's width & height in order enable it to work well at a zoom > 100.
Hope this is of some help.
(Edit) - I just re-read your post. You're asking about zooming an image
on a form, not the image
of the form, aren't you? (End-Edit)
Regards,