Insertar imagen en una UserForm que puede cambiar
Estoy elaborando un userform en donde quiero colocar algunas imágenes que se ligarán a precios y descripciones, pero debo dejar abierta la posibilidad de que las imágenes cambien eventualmente. ¿Cómo lo puedo lograr sin necesidad de entrar a las propiedades de la imagen y esablecer una nueva ruta?
3 respuestas
Respuesta de Elsa Matilde
1
Para establecer la propiedad picture del control por macro, esta es la instrucción:
Image1.Picture = LoadPicture(ruta)
Donde 'ruta' indicará el nombre completo de la imagen a cargar. Esto podes establecerlo al momento de seleccionar un objeto en una lista, por ej.
Saludos
Elsa
Todo sobre Userforms en manual Creando formularios (Userforms y algo más), desde:
http://es.geocities.com/lacibelesdepunilla/manuales
Image1.Picture = LoadPicture(ruta)
Donde 'ruta' indicará el nombre completo de la imagen a cargar. Esto podes establecerlo al momento de seleccionar un objeto en una lista, por ej.
Saludos
Elsa
Todo sobre Userforms en manual Creando formularios (Userforms y algo más), desde:
http://es.geocities.com/lacibelesdepunilla/manuales
Gracias Elsa.
Intenté hacer lo siguiente pero al momento de ejecutar el cuadro de diálogo no me presenta la imagen.
Private Sub Image1_Click()
Image1.Picture = LoadPicture("D:\My Documents\Mis imágenes\ejemplo.jpg")
End Sub
¿Cuál será mi error?
Recibe un cordial saludo.
Intenté hacer lo siguiente pero al momento de ejecutar el cuadro de diálogo no me presenta la imagen.
Private Sub Image1_Click()
Image1.Picture = LoadPicture("D:\My Documents\Mis imágenes\ejemplo.jpg")
End Sub
¿Cuál será mi error?
Recibe un cordial saludo.
Respuesta de nick martinez
prueba con esto a ver que tal LoadPicture("D:\My Documents\Mis imágenes\ejemplo.jpg\")
Como edito el tamaño de la imágen? ya que todo me salió bien menos el tamaño de las imágenes, el archivo fuente lo necesito con la resolución que tiene y no se la puedo bajar, sin embargo para una previsualización en esta opción necesito que el tamaño sea mucho menor, espero que me puedan ayudar. - Felipe Valencia