Prevent image resizing in userforms?

[Ouka]

Hi all,

Is there a way to keep images in user forms to fit the area defined for them in the object's properties?

Scenario:

I have images that I need to use in userforms. I add the images to the userform, I set the image control properties and the image fits inside the boundaries fine. When I execute the userform, it shows up fine on my system.

However, on some folks' systems the same image shows up distorted - either stretched out and only part of the image is viewable within the bounds of the control properties, or both stretched and squished so not only does it not fit but the text in the image is distorted and not readable.

I've tried using the 3 different image fitting controls - clip, stretch, zoom. On my screen they all look correct. On coworker's system all 3 look wrong (in different ways).

I've tried using both BMPs and JPGs, with the same three fitting controls. Same issues.

I've tried toggling autosize on and off on all three settings, both image types. Same issues.

One thing I have noticed is that in the source image file, the pixels are one thing, say 100x50. When I import the picture into excel and fit the control's size to the image it's half the size, here 50x25.

On my co-worker's system it does look like when viewing one of the images using Clip that the image itself is about twice the size of the control box and you are only seeing part of it.

Any thoughts on how to fix this? An easy setting I'm missing I hope?

[hansolu]

Hi
can you define the picture size when loading the userform?

Private Sub UserForm_Initialize()
With FrmHelp
  .StartUpPosition = 0
  .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
  .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
'  .Show
End With

With FrmHelp.Image1
.Width = 50
.Height = 25
End With
End Sub

I use the first WITH to position the userform on the screen (if you use multiple screens) and the second to adjust the image1 in the userform.

good luck