Error al cargar imagen
Publicado por Albert (204 intervenciones) el 25/03/2015 12:14:05
Buenos días Foreros:
Tengo un código para cargar imágenes en un control image de un Form, las imágenes están en la misma carpeta que el libro pero si no existe la imagen da un error, he intento solucionarlo poniendo una imagen que la llamo "BLANC.GIF" que en realidad solo pone imagen no disponible, "ruta" es para cuando la imagen existe y si no encuentra el nombre (que lo busca en el textbox13) debería coger la ruta2 que es el blanco el problema esta en que ignora el "false" y da error 53 en tiempo de ejecución "archivo no encontrado" y no se que es lo que hago mal, si alguien me lo puede revisar le estare muy agradecido.
Otra pregunta sobre el mismo tema es ¿se puede hacer lo mismo pero que las imágenes no estén en la misma carpeta que el libro? me seria mas practico tenerlas todas juntas en una carpeta paralela pues en la del libro tengo otros archivos "varios" .
Mil gracias de antemano por vuestro tiempo
Tengo un código para cargar imágenes en un control image de un Form, las imágenes están en la misma carpeta que el libro pero si no existe la imagen da un error, he intento solucionarlo poniendo una imagen que la llamo "BLANC.GIF" que en realidad solo pone imagen no disponible, "ruta" es para cuando la imagen existe y si no encuentra el nombre (que lo busca en el textbox13) debería coger la ruta2 que es el blanco el problema esta en que ignora el "false" y da error 53 en tiempo de ejecución "archivo no encontrado" y no se que es lo que hago mal, si alguien me lo puede revisar le estare muy agradecido.
Otra pregunta sobre el mismo tema es ¿se puede hacer lo mismo pero que las imágenes no estén en la misma carpeta que el libro? me seria mas practico tenerlas todas juntas en una carpeta paralela pues en la del libro tengo otros archivos "varios" .
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TextBox13_Change()
'busco i coloco la imatge
'el archivo de imagen se encontrará en la misma carpeta que el libro activo
Image1.Visible = True
Dim ruta
Dim ruta2
Dim Nom
Dim Nom2
Nom = TextBox13Nom2 = "BLANC"
ruta = ThisWorkbook.Path & "\" & [Nom] & ".Gif"
ruta2 = ThisWorkbook.Path & "\" & [Nom2] & ".Gif"
If ruta = False ThenImage1.Picture = LoadPicture(ruta2)
Else
Image1.Picture = LoadPicture(ruta)
End If
End Sub
Mil gracias de antemano por vuestro tiempo
Valora esta pregunta
0