Mostrar imagenes en formulario desde una hoja Excel
Publicado por antonio (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
Antonio
[email protected]
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
[email protected]
Valora esta pregunta
0