resize userform image to fit on any monitor

I wrote a macro that allows the user to load in an image from a a file and then displays that image in a userform. I need the entire image to be displayed on the monitor regardless of the screen resolution. However, if the original image is larger than the screen resolution, only part of the image is displayed. Of course, one could scroll down to see the rest of the image, but this is unacceptable. I realize that I can determine the screen resolution of any monitor on which the macro is used, and I know that I could resize the userform so that the whole userform is visible regardless of the resolution. The question is, how can I resize the original image so that the entire picture will display in the userform at any resolution? I don't want the users to have to resize the image in a different program before opening it in Excel.

Hi Tim,

You can attach picture to ur userform and strecth it.
and u can use API call to do this:
in your userform module:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam
As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const SC_MAXIMIZE = &HF030&
Const WM_SYSCOMMAND = &H112
Private Sub UserForm_Activate()
dim FrmhWnd as long
FrmhWnd = FindWindow(vbnullstring,me.caption)
SendMessage FrmhWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0
End sub

Thanks,

HAlim


timspier menuliskan:
> I wrote a macro that allows the user to load in an image from a a file
> and then displays that image in a userform. I need the entire image to
> be displayed on the monitor regardless of the screen resolution.
> However, if the original image is larger than the screen resolution,
> only part of the image is displayed. Of course, one could scroll down
> to see the rest of the image, but this is unacceptable. I realize that
> I can determine the screen resolution of any monitor on which the macro
> is used, and I know that I could resize the userform so that the whole
> userform is visible regardless of the resolution. The question is, how
> can I resize the original image so that the entire picture will display
> in the userform at any resolution? I don't want the users to have to
> resize the image in a different program before opening it in Excel.

> --
> timspier
> ------------------------------------------------------------------------
> timspier's Profile: http://www.excelforum.com/member.php...o&userid=32090
> View this thread: http://www.excelforum.com/showthread...hreadid=568562