Macro que se ejecute en red
Publicado por Gregorio Huaman Gervassi (2 intervenciones) el 26/11/2015 22:40:05
Estimados Buenas Tardes:
Tengo un problema con la siguiente macro:
1.- Cuando la dirección de los archivos esta en mi propia maquina no hay problema, me muestra la imagen en la hoja excel.
2.- Cuando la imagen se encuentra en otra maquina en red es el problema, crea un archivo con la imagen que busco y me muestra solo basura.
Agradecere su apoyo, esta es la macro .
De antemano gracias.
Saludos
Tengo un problema con la siguiente macro:
1.- Cuando la dirección de los archivos esta en mi propia maquina no hay problema, me muestra la imagen en la hoja excel.
2.- Cuando la imagen se encuentra en otra maquina en red es el problema, crea un archivo con la imagen que busco y me muestra solo basura.
Agradecere su apoyo, esta es la macro .
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
'If Not Intersect(Target, Range("A2:A6")) Is Nothing Then
If Not Intersect(Target, Range("AG7")) Is Nothing Then
'Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
Image1.Picture = _
LoadPicture(Workbooks.Open("\\hp0600001\imagenes\" & Target & ".jpg"))
End If
End Sub
De antemano gracias.
Saludos
Valora esta pregunta
0