Visual Basic - ayuda para modificar codigo de visor de imagen

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 6
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda para modificar codigo de visor de imagen

Publicado por jose de jesus (2 intervenciones) el 29/10/2019 16:17:43
buen dia, estoy realizando una macro en la cual se muestre un catalogo de imagenes al dar click en el nombre de la pieza y este va y busca a una carpeta en la pc y muestra la imagen por medio de un control activex de imagen, lo que quiero realizar es que al momento de seleccionar una imagen y esta no se encuentre se muestre una imagen que diga que la imagen no esta disponible. adjunto el codigo de la muestra de imagenes

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 
If Intersect(Target, Range("A11:A5000")) Then
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\" & Target & ".jpg")
 
End If
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
Imágen de perfil de Andres Leonardo
Val: 3.779
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda para modificar codigo de visor de imagen

Publicado por Andres Leonardo (1512 intervenciones) el 29/10/2019 18:37:41
Le puedes hacer un DIR (ActiveWorkbook.Path & "\partes\" & Target & ".jpg") esto te devuelve Ok si existe


y seria una

1
2
3
4
5
6
7
8
If Intersect(Target, Range("A11:A5000")) Then
            if dir(ActiveWorkbook.Path & "\partes\" & Target & ".jpg") <> "" then
       Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\" & Target & ".jpg")
     else
         Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\figuranoexiste.jpg")
end if
 
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 6
Ha disminuido su posición en 23 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda para modificar codigo de visor de imagen

Publicado por jose de jesus (2 intervenciones) el 30/10/2019 20:51:11
PERFECTO, SI FUNCIONO GRACIAS POR LA AYUDA
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
Imágen de perfil de Andres Leonardo
Val: 3.779
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

ayuda para modificar codigo de visor de imagen

Publicado por Andres Leonardo (1512 intervenciones) el 30/10/2019 23:26:33
Me alegro mucho

SAludos desde Ecuador.
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