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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola amigos tengo el siguiente código para cargar una imagen:
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