Excel - Mostrar imagenes en formulario desde una hoja Excel

   
Vista:

Mostrar imagenes en formulario desde una hoja Excel

Publicado por antonio apperez2012@gmail.com (2 intervenciones) el 10/11/2013 15:02:45
No puedo enviar el archive porque aun no estoy validado. Recien me registre
Pero tengo todo el archivo armado en Excel. Las imágenes las tengo en la Hoja2 de Excel en las celdas B2, C2, D2, E2 y F2
Debajo de cada celda tengo datos pertenecientes a cada imagen que están funcionando bien
Lo único que no funciona es la inserción de la imagen de la hoja de Excel al formulario

Es decir, lo que no funciona es esto:
Image1.Picture = LoadPicture(ruta_e_imagen)
quizas porque la ruta no sea correcta

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub ComboBox1_Change()
 
'   definimos la ruta donde tenemos el fichero de excel que será la misma donde tengamos las imágenes)
    ruta = "Sheets(""Hoja2"")"
 
'   definimos los nombres de las imágenes
    imagen = ComboBox1.List(ComboBox1.ListIndex) & ".jpg"
 
'   ahora definimos la ruta y la imagen
    ruta_e_imagen = ruta & "." & imagen
 
'   cargamos esa imagen en el cuadro de la imagen
    Image1.Picture = LoadPicture(ruta_e_imagen)
 
'   ahora ponemos el nombre de la ciudad, el país etc., en el label2 hasta label8
    Cells.Find(What:=Replace(imagen, ".jpg", "")).Select
    Label2 = ActiveCell.Offset(3, 0)
    Label3 = ActiveCell.Offset(4, 0)
    Label4 = ActiveCell.Offset(5, 0)
    Label5 = ActiveCell.Offset(6, 0)
    Label6 = ActiveCell.Offset(7, 0)
    Label7 = ActiveCell.Offset(8, 0)
    Label8 = ActiveCell.Offset(9, 0)
 
End Sub

Antonio
Apperez2012@gmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Mostrar imagenes en formulario desde una hoja Excel

Publicado por Rolando (2 intervenciones) el 12/05/2014 21:44:06
Buena tarde:
Descargue el archivo lo ejecute y presenta un error

Error 75 y hace referencia a esta linea de codigo.

- Image1.Picture = LoadPicture(ruta_e_imagen)

Te agradezco si me ayudas.

Mil gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar