Excel - Macro que se ejecute en red

   
Vista:

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 .

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Macro que se ejecute en red

Publicado por jhon jairo (23 intervenciones) el 27/11/2015 04:40:40
Hola te recomiendo crear una unidad virtual en donde almacenes la imagen a Utilizar.

El error esta aqui:
Image1.Picture = LoadPicture(Workbooks.Open("\\hp0600001\imagenes\" & Target & ".jpg"))
utilizas Workbooks.Open que se utiliza para abrir un libro de excel, por tanto no reconoce el formato del archivo

utiliza la opcion que cambiaste a comentario que es esta:
'Image1.Picture = _
LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")

ActiveWorkbook.Path te devuelve la ruta donde esta el libro de excel que tienes abierto .

creo que te debe funcionar con esta linea
Image1.Picture = LoadPicture("\\hp0600001\\imagenes\" & Target & ".jpg")


prueba a ver como te va...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Macro que se ejecute en red

Publicado por Gregorio (2 intervenciones) el 27/11/2015 22:44:59
Jhon:

Excelente, muchas gracias por el aporte.
Un abrazo.
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