Hipervinculo referenciado a donde este el fichero

hola, Javier !

Tengo un fichero imagenes.xls en \\server\documentos\imagen.xls
... como hacer un hiperviculo para que se abra una imagen (\\server\docuemntos\imagenes\imagen.jpg)
pero que cuando se copie el fichero imagen.xls a un disco local por ejemplo c:\imagen.xls
abra las imagenes de c:\imagenes\imagen.jpg no de la ruta referenciada...

op1: ve si te sirve usar (y estar modificando) la "base del hipervinculo" en las propiedades de ese archivo:
xl97-2003: (menu) archivo / propiedades / (ficha) resumen
xl-2007: (boton) office / (ficha) preparar / propiedades / (boton de lista) propiedades avanzadas / (ficha) resumen

op2: si la costumbre es frecuente en este tipo de (des/re)ubicacion de archivos en diferentes carpetas (?)
prueba con la opcion de hipervinculos por funcion (NO por comando) p.e. =hipervinculo("direccion","texto en la celda")
podrias usar una celda como referencia relativa a la parte central de tus hipervinculos

saludos,
hector.

Hola Hector:

He intentado hacer lo siguiente usando como dices la funcion hipervinculo.
en funcion de los 2 primero caracteres de la celda, creo un hiperviculo a
dicha celda con la ruta indicada y el nombre de imagen formada por la imagen
y esos dos primeros caracteres.
el error es que no encuentra la funcion Hipervinculo por dice que falta sub
o function y luego no se objeto es el hipervinculo de una celda he puesto
value por poner algo.

Dim enlace As String
Dim i As Integer

For i = 1 To 10
celda = "C" & i



enlace = Mid(Range(celda).Value, 1, 2)
Range(celda).Value = HIPERVINCULO("\\Server\IMAGEN\IMAGEN" & i, "enlace a
IMAGEN " & i)


"Héctor Miguel" escribió:

hola, Javier !

> Tengo un fichero imagenes.xls en \\server\documentos\imagen.xls
> ... como hacer un hiperviculo para que se abra una imagen (\\server\docuemntos\imagenes\imagen.jpg)
> pero que cuando se copie el fichero imagen.xls a un disco local por ejemplo c:\imagen.xls
> abra las imagenes de c:\imagenes\imagen.jpg no de la ruta referenciada...

op1: ve si te sirve usar (y estar modificando) la "base del hipervinculo" en las propiedades de ese archivo:
xl97-2003: (menu) archivo / propiedades / (ficha) resumen
xl-2007: (boton) office / (ficha) preparar / propiedades / (boton de lista) propiedades avanzadas / (ficha) resumen

op2: si la costumbre es frecuente en este tipo de (des/re)ubicacion de archivos en diferentes carpetas (?)
prueba con la opcion de hipervinculos por funcion (NO por comando) p.e. =hipervinculo("direccion","texto en la celda")
podrias usar una celda como referencia relativa a la parte central de tus hipervinculos

saludos,
hector.

hola, Javier !

- como "pinta" el codigo que expones, estarias SUSTITUYENDO el contenido de "la celda" por... (una especie de hipervinculo)
- la funcion =hipervinculo("direccion","texto en la celda") es una funcion "de hoja de calculo" (no de vba directamente)
- seria necesario especificar la ruta completa (incluyendo la EXTension al tipo de imagen, .jpg ?, .jpeg ?, .bmp ?, .gif ?, ???)

- si tu intencion es sustituir (completamente) el contenido de la celda por... un hipervinculo...

a) "por funcion" (de hoja de calculo)...
la instruccion seria usando la funcion (hipervinculo) EN INGLES y algunas "dobles comillas doles", +/- asi (dentro de bucle for...next)

enlace = Left(celda, 2) & ".jpg"
Range(celda).Formula = "=hyperlink(""\\server\imagen\imagen\" & enlace & """,""enlace a imagen " & enlace & """)"

b) por comando (como hacer ctrl + alt + k)
Range(celda).Hyperlinks.Add ..

comentas por donde van los tiros ?
saludos,
hector.

__ OP __

He intentado hacer lo siguiente usando como dices la funcion hipervinculo. en funcion de los 2 primero caracteres de la celda
creo un hiperviculo a dicha celda con la ruta indicada y el nombre de imagen formada por la imagen y esos dos primeros caracteres.
el error es que no encuentra la funcion Hipervinculo por dice que falta sub o function
y luego no se objeto es el hipervinculo de una celda he puesto value por poner algo.

Dim enlace As String
Dim i As Integer
For i = 1 To 10
celda = "C" & i
enlace = Mid(Range(celda).Value, 1, 2)
Range(celda).Value = HIPERVINCULO("\\Server\IMAGEN\IMAGEN" & i, "enlace a IMAGEN " & i)
...

__ previos __

Tengo un fichero imagenes.xls en \\server\documentos\imagen.xls
... como hacer un hiperviculo para que se abra una imagen (\\server\docuemntos\imagenes\imagen.jpg)
pero que cuando se copie el fichero imagen.xls a un disco local por ejemplo c:\imagen.xls
abra las imagenes de c:\imagenes\imagen.jpg no de la ruta referenciada...

op1: ve si te sirve usar (y estar modificando) la "base del hipervinculo" en las propiedades de ese archivo:
xl97-2003: (menu) archivo / propiedades / (ficha) resumen
xl-2007: (boton) office / (ficha) preparar / propiedades / (boton de lista) propiedades avanzadas / (ficha) resumen

op2: si la costumbre es frecuente en este tipo de (des/re)ubicacion de archivos en diferentes carpetas (?)
prueba con la opcion de hipervinculos por funcion (NO por comando) p.e. =hipervinculo("direccion","texto en la celda")
podrias usar una celda como referencia relativa a la parte central de tus hipervinculos

buenas:

lo he solucionado asi

Set objLink = Range(celda).Hyperlinks.Add _
(Range(celda), RutaCompleta)

ya que mediante funcion me sigue diciendo que no existe sub o function en
hyperlink, he mirado en las referencias de VB y esta en microsoft office 11
objet library por lo que no lo entiedno el error y de esta manera si funciona.

si sabes el motivo del error de sub indicamelo en caso contrario ya lo he
solucionado gracias.

"Héctor Miguel" escribió:

hola, Javier !

- como "pinta" el codigo que expones, estarias SUSTITUYENDO el contenido de "la celda" por... (una especie de hipervinculo)
- la funcion =hipervinculo("direccion","texto en la celda") es una funcion "de hoja de calculo" (no de vba directamente)
- seria necesario especificar la ruta completa (incluyendo la EXTension al tipo de imagen, .jpg ?, .jpeg ?, .bmp ?, .gif ?, ???)

- si tu intencion es sustituir (completamente) el contenido de la celda por... un hipervinculo...

a) "por funcion" (de hoja de calculo)...
la instruccion seria usando la funcion (hipervinculo) EN INGLES y algunas "dobles comillas doles", +/- asi (dentro de bucle for...next)

enlace = Left(celda, 2) & ".jpg"
Range(celda).Formula = "=hyperlink(""\\server\imagen\imagen\" & enlace & """,""enlace a imagen " & enlace & """)"

b) por comando (como hacer ctrl + alt + k)
Range(celda).Hyperlinks.Add ..

comentas por donde van los tiros ?
saludos,
hector.

__ OP __
> He intentado hacer lo siguiente usando como dices la funcion hipervinculo. en funcion de los 2 primero caracteres de la celda
> creo un hiperviculo a dicha celda con la ruta indicada y el nombre de imagen formada por la imagen y esos dos primeros caracteres.
> el error es que no encuentra la funcion Hipervinculo por dice que falta sub o function
> y luego no se objeto es el hipervinculo de una celda he puesto value por poner algo.
>
> Dim enlace As String
> Dim i As Integer
> For i = 1 To 10
> celda = "C" & i
> enlace = Mid(Range(celda).Value, 1, 2)
> Range(celda).Value = HIPERVINCULO("\\Server\IMAGEN\IMAGEN" & i, "enlace a IMAGEN " & i)
> ...

__ previos __
>>> Tengo un fichero imagenes.xls en \\server\documentos\imagen.xls
>>> ... como hacer un hiperviculo para que se abra una imagen (\\server\docuemntos\imagenes\imagen.jpg)
>>> pero que cuando se copie el fichero imagen.xls a un disco local por ejemplo c:\imagen.xls
>>> abra las imagenes de c:\imagenes\imagen.jpg no de la ruta referenciada...
>>
>> op1: ve si te sirve usar (y estar modificando) la "base del hipervinculo" en las propiedades de ese archivo:
>> xl97-2003: (menu) archivo / propiedades / (ficha) resumen
>> xl-2007: (boton) office / (ficha) preparar / propiedades / (boton de lista) propiedades avanzadas / (ficha) resumen
>>
>> op2: si la costumbre es frecuente en este tipo de (des/re)ubicacion de archivos en diferentes carpetas (?)
>> prueba con la opcion de hipervinculos por funcion (NO por comando) p.e. =hipervinculo("direccion","texto en la celda")
>> podrias usar una celda como referencia relativa a la parte central de tus hipervinculos

hola, Javier !

lo he solucionado asi
Set objLink = Range(celda).Hyperlinks.Add _
(Range(celda), RutaCompleta)
ya que mediante funcion me sigue diciendo que no existe sub o function en hyperlink
he mirado en las referencias de VB y esta en microsoft office 11 objet library
por lo que no lo entiedno el error y de esta manera si funciona.
si sabes el motivo del error de sub indicamelo en caso contrario ya lo he solucionado gracias...

en el mensaje anterior he puesto lo que creo/veo/... como causa del error en tu procedimiento de vba (?)
(por si algo no se entiende, o leiste demasiado aprisa)... comentas ?

saludos,
hector.