¿Cómo ajustar una foto jpg al tamaño original de un image control, en vba?

Hola. Estoy trabajando en VBA de Macros de Excel.

Tengo un cuadro de tipo Image en un UserForm junto con un botón. Al presionar sobre el botón se me coloca una cierta foto jpg que tengo en el escritorio. Eso lo hace sin problemas.

Sin embargo, el tamaño original de la foto es demasiado grande para el tamaño de mi Image. Luego, en el cuadro Image sólo se muestra un pequeño trozo de la foto. Investigué si existe alguna forma de poder ajustar el tamaño de la foto al tamaño del Image, pero solo he encontrado respuestas al revés: ajustar el tamaño del Image al tamaño original de la foto.

Este es el código que estoy usando.

Private Sub CommandButton1_Click()
    Image1.Picture = LoadPicture("C:\Users\Fernando\Desktop\BetaT (n=5,rep=3).jpg")
End Sub

Muchas gracias. Quedo atento a sus respuestas.

0

Añade tu respuesta

Haz clic para o