Zoom Image on UserForm

[Todd Bardoni]

How does one Zoom an Image on a UserForm? The help files say it's possib;e to Zoom, Crop, etc. but I can't find any examples.

Thanks.
Todd

 

[ksmith]

there is an option in the properties window called picture size mode...there is a zoom option there.

-Kyle

 

[Greg Truby]

I've got a UserForm at work where I used a scrollbar to adjust the zoom due to my users having a variety of resolution settings on their monitors. If no one gets you a full answer in the meantime, I'll post back tomorrow.

Regards,

 

[Greg Truby]

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:

Private Sub ScrollBarZoom_Change()
    UserFormReconcile2.Zoom = ScrollBarZoom.Value
    UserFormReconcile2.LabelZoom = "Zoom = " & ScrollBarZoom.Value
End Sub

Code in UserForm_Initialize

    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,

 

[Greg Truby]

In for a dime, in for a dollar:

This will resize an image:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButtonGrow_Click()
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> Image
    <SPAN style="color:#00007F">Set</SPAN> i = UserForm1.Image1
    i.PictureSizeMode = fmPictureSizeModeZoom
    i.Height = i.Height * 1.1
    i.Width = i.Width * 1.1
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButtonShrink_Click()
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> Image
    <SPAN style="color:#00007F">Set</SPAN> i = UserForm1.Image1
    i.PictureSizeMode = fmPictureSizeModeZoom
    i.Height = i.Height * 0.9
    i.Width = i.Width * 0.9
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Todd Bardoni]

Thanks. Actually I figured it out. But you did give me the idea of using a scrollbar to adjust the size of the form. Excellent! Thanks!