HIPERVINCULOS

Hola gracias!!
mi versión de Excel es 2003
a la imagen que tengo insertada solo le doy click derecho y en el menú
contextual selecciono Hipervínculo y luego le indico el lugar.
Tengo una lista de 40 estudiantes , al darle click en su numero(un
hipervínculo) de lista me lleva a un espacio en otra hoja(escalas)exclusivo
para anotaciones y cálculos de la calificación de cada estudiante, en este
espacio (hay 40 en la hoja escalas) cada estudiante tiene hipervínculos
(que se acceden al darle click a imágenes alusivas) a otras hojas donde se
pueden realizar mas cálculos.
por eso necesesito copiarlos para no tener que indicarle manualmente a cada
una de las imágenes de los 40 espacios correspondientes a los estudiantes de
la lista el hipervínculo correspondiente.
espero haberme explicado claramente, si no pues para volverlo a explicar.
Gracias.

"Héctor Miguel" escribió en el mensaje
news:

hola, Luis !

... tengo 5 imagenes y cada una... tiene un hipervinculo hacia otras
celdas en la misma hoja u otras
... copiar esas 5 imagenes 40 veces mas abajo pero necesito que cada una
... haga hipervinculo a la celda en la misma columna pero 90 filas mas
abajo que la anterior...

- comenta tu version de excel y la forma como haces que una imagen tenga
un hiprvinculo a... -???-

- (si cabe la pregunta...) cual es la necesidad de incrustar tantos
objetos/imagen en una hoja -?-
so-pena de (probable o seguramente) poner en riesgo la integridad de tu
archivo -?-

saludos,
hector.

hola, Luis !

... tengo 5 imagenes y cada una... tiene un hipervinculo hacia otras celdas en la misma hoja u otras
... copiar esas 5 imagenes 40 veces mas abajo pero necesito que cada una
... haga hipervinculo a la celda en la misma columna pero 90 filas mas abajo que la anterior...

- comenta tu version de excel y la forma como haces que una imagen tenga un hiprvinculo a... -???-

- (si cabe la pregunta...) cual es la necesidad de incrustar tantos objetos/imagen en una hoja -?-
so-pena de (probable o seguramente) poner en riesgo la integridad de tu archivo -?-

saludos,
hector.

hola, Luis !

... Excel... 2003, a la imagen... insertada... doy click derecho y en el menu contextual selecciono Hipervinculo y luego le indico el lugar.
Tengo una lista de 40 estudiantes, al darle click en su numero (un hipervinculo) de lista me lleva a un espacio en otra hoja ...
cada estudiante tiene hipervinculos (... al darle click a imagenes alusivas) a otras hojas donde se pueden realizar mas calculos.
... necesesito copiarlos para no tener que indicarle manualmente a cada una de las imagenes... el hipervínculo correspondiente...

(solo "para variar"...) una buena, y otra "no tan buena" :-(

1) los hipervinculos que usas (xl-2000 en adelante) son "fijos" (no se pueden volver "volatiles" ni "relativos" al copiar los objetos)
2) una forma de copiar las imagenes y la relatividad que requieres para sus hipervinculos es usando macros :))

copia/pega (o escribe) la siguiente macro en un modulo de codigo estandar y la ejecutas...
-> con la condicion de PRIMERO seleccionar la imagen que necesitas copiar (ctrl + clic para no disparar el hipervinculo)
y la macro copiara la imagen una fila despues de la seleccionada y actualiza la referencia del hipervinculo n_filas)

saludos,
hector.

Sub Nueva_imagen_hyperlink()
Dim Despl As Byte, Fila As Integer, Col As Byte, Salto As String
Despl = 90
With ActiveCell
With ActiveSheet
With .Shapes(Selection.Index)
Fila = .BottomRightCell.Row: Col = .TopLeftCell.Column
Salto = .Hyperlink.SubAddress: .Copy
Salto = Range(Salto).Offset(Despl).Address(0, 0, , 1)
Salto = IIf(Left(Salto, 1) = "'", "'", "") & Mid(Salto, InStr(Salto, "]") + 1)
End With
.Cells(Fila + 1, Col).PasteSpecial
.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
Address:="", SubAddress:=Salto
End With
.Activate
End With
End Sub

hola, Luis !

... Excel... 2003, a la imagen... insertada... doy click derecho y en el menu contextual selecciono Hipervinculo y luego le indico el lugar.
Tengo una lista de 40 estudiantes, al darle click en su numero (un hipervinculo) de lista me lleva a un espacio en otra hoja ...
cada estudiante tiene hipervinculos (... al darle click a imagenes alusivas) a otras hojas donde se pueden realizar mas calculos.
... necesesito copiarlos para no tener que indicarle manualmente a cada una de las imagenes... el hipervínculo correspondiente...

(solo "para variar"...) una buena, y otra "no tan buena" :-(

1) los hipervinculos que usas (xl-2000 en adelante) son "fijos" (no se pueden volver "volatiles" ni "relativos" al copiar los objetos)
2) una forma de copiar las imagenes y la relatividad que requieres para sus hipervinculos es usando macros :))

copia/pega (o escribe) la siguiente macro en un modulo de codigo estandar y la ejecutas...
-> con la condicion de PRIMERO seleccionar la imagen que necesitas copiar (ctrl + clic para no disparar el hipervinculo)
y la macro copiara la imagen una fila despues de la seleccionada y actualiza la referencia del hipervinculo n_filas)

saludos,
hector.

Sub Nueva_imagen_hyperlink()
Dim Despl As Byte, Fila As Integer, Col As Byte, Salto As String
Despl = 90
With ActiveCell
With ActiveSheet
With .Shapes(Selection.Index)
Fila = .BottomRightCell.Row: Col = .TopLeftCell.Column
Salto = .Hyperlink.SubAddress: .Copy
Salto = Range(Salto).Offset(Despl).Address(0, 0, , 1)
Salto = IIf(Left(Salto, 1) = "'", "'", "") & Mid(Salto, InStr(Salto, "]") + 1)
End With
.Cells(Fila + 1, Col).PasteSpecial
.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
Address:="", SubAddress:=Salto
End With
.Activate
End With
End Sub

Muchas gracias!!!
lo usaré.
"Héctor Miguel" escribió en el mensaje
news:

hola, Luis !

... Excel... 2003, a la imagen... insertada... doy click derecho y en el
menu contextual selecciono Hipervinculo y luego le indico el lugar.
Tengo una lista de 40 estudiantes, al darle click en su numero (un
hipervinculo) de lista me lleva a un espacio en otra hoja ...
cada estudiante tiene hipervinculos (... al darle click a imagenes
alusivas) a otras hojas donde se pueden realizar mas calculos.
... necesesito copiarlos para no tener que indicarle manualmente a cada
una de las imagenes... el hipervínculo correspondiente...

(solo "para variar"...) una buena, y otra "no tan buena" :-(

1) los hipervinculos que usas (xl-2000 en adelante) son "fijos" (no se
pueden volver "volatiles" ni "relativos" al copiar los objetos)
2) una forma de copiar las imagenes y la relatividad que requieres para
sus hipervinculos es usando macros :))

copia/pega (o escribe) la siguiente macro en un modulo de codigo estandar
y la ejecutas...
-> con la condicion de PRIMERO seleccionar la imagen que necesitas copiar
(ctrl + clic para no disparar el hipervinculo)
y la macro copiara la imagen una fila despues de la seleccionada y
actualiza la referencia del hipervinculo n_filas)

saludos,
hector.

Sub Nueva_imagen_hyperlink()
Dim Despl As Byte, Fila As Integer, Col As Byte, Salto As String
Despl = 90
With ActiveCell
With ActiveSheet
With .Shapes(Selection.Index)
Fila = .BottomRightCell.Row: Col = .TopLeftCell.Column
Salto = .Hyperlink.SubAddress: .Copy
Salto = Range(Salto).Offset(Despl).Address(0, 0, , 1)
Salto = IIf(Left(Salto, 1) = "'", "'", "") & Mid(Salto,
InStr(Salto, "]") + 1)
End With
.Cells(Fila + 1, Col).PasteSpecial
.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), _
Address:="", SubAddress:=Salto
End With
.Activate
End With
End Sub