Resize Image Control at runtime

[Siddharth Rout]

I am stuck in a very peculiar situation. Seems like no one has ever asked this question before or maybe I am not able to search for it.

There is a Userform in Excel. It has an Image Control. It's PitcutreSizeMode = fmPictureSizeModeClip. I know I can change the PitcutreSizeMode to Zoom or Stretch but I do not want to do that. What I want is at runtime, the size of the control should resize to match the image's size. The image is already embeded inside the Image control. I do not want to use the relative path of the image.

Let's say we have the following measurements when the userform is initialized

Image1.Height: 54
Image1.Width: 84

Image1.Picture.Width: 5821
Image1.Picture.Height: 3874

This is what I am trying to achieve.



Any idea on how do I proceed with this?