ayuda para modificar codigo de visor de imagen
Publicado por jose de jesus (3 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
0
