Mostrar imagen con medida en userform

[jeladio]

Hola amigos tengo el siguiente código para cargar una imagen:

Private Sub foto_Click()

 On Error Resume Next 

Dim Ruta, Lista As String

Ruta = ThisWorkbook.Path

nombre = Worksheets("MATRIZGENERAL").Range("b6").Value

If Lista = "" Then Exit Sub 

marcofoto.Picture = LoadPicture(Ruta & "\prueba\" & nombre & ".jpg")

End Sub

[/CODE]

y todo funciona el problema es que cuando las imagenes son muy grandes solo se ve una parte en el cuadro marcofoto (image), como puedo solucionarlo para que redimensione la fotografia antes de cargarlo al marco y poder ver la foto completa.

espero puedan ayudarme.

saludos

[Antoni]

Revisa el adjunto.

Tamaño imagen.xls