Visual Basic para Aplicaciones - Error al cargar imagen

Life is soft - evento anual de software empresarial
   
Vista:

Error al cargar imagen

Publicado por Albert (108 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" .

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 = TextBox13
Nom2 = "BLANC"
ruta = ThisWorkbook.Path & "\" & [Nom] & ".Gif"
ruta2 = ThisWorkbook.Path & "\" & [Nom2] & ".Gif"
 
If ruta = False Then
Image1.Picture = LoadPicture(ruta2)
Else
Image1.Picture = LoadPicture(ruta)
End If
End Sub

Mil gracias de antemano por vuestro tiempo
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

Error al cargar imagen

Publicado por Albet (108 intervenciones) el 29/03/2015 19:40:45
Buenas tardes foreros, aprovechando otra pregunta en excelgali, moises melgar me soluciono este pequeño problema, os dejo su respuesta por si le puede servir a lguien.

1
2
3
4
5
6
7
8
Private Sub textBox13_change()
Image1.Visible = True
If Len(Dir(ThisWorkbook.Path & "/" & TextBox13.Text & ".gif")) = 0 Then
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\BLANC.gif")
Else:
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox13.Text & ".gif")
End If
End Sub
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