Obtener el hipervínculo

varString = Worksheets("Hoja1").Range("A1").Hyperlinks(1).Address

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Beto" escribió en el mensaje news:1503201c41cb2$463cc280$
Hola.
¿Alguien sabe cómo obtengo el hipervínculo de una celda y
ponerlo en una variable via macro?

Gracias.

Muchísimas gracias Fernando.
Beto.



Fernando Arroyo wrote:

varString = Worksheets("Hoja1").Range("A1").Hyperlinks(1).Address

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Beto" escribió en el mensaje

news:1503201c41cb2$463cc280$

Hola.
¿Alguien sabe cómo obtengo el hipervínculo de una celda y
ponerlo en una variable via macro?

Gracias.

Perdonad!
Yo tengo un problemilla parecido, lo único que el hipervínculo está dentro
de una imagen...
Mi idea es copiar los hipervínculos de la imagen para insertarlos en
celdas.. y claro, tengo más de 3000 registros y sería mucho más cómodo si
me creo una macro..
¿Cómo lo puedo hacer?
Muchas gracias!!


Beto wrote:

Muchísimas gracias Fernando.
Beto.



Fernando Arroyo wrote:

> varString = Worksheets("Hoja1").Range("A1").Hyperlinks(1).Address

> Un saludo.


> Fernando Arroyo
> MS MVP - Excel


> "Beto" escribió en el mensaje
news:1503201c41cb2$463cc280$
> Hola.
> ¿Alguien sabe cómo obtengo el hipervínculo de una celda y
> ponerlo en una variable via macro?

> Gracias.

No está demasiado claro qué es lo que necesitas. Si se trata de listar los hipervínculos de todas las imágenes de una hoja, el código podría ser:

Sub ExtraerHiperVínculos()
Dim sh As Shape

For Each sh In Worksheets("Hoja1").Shapes
Worksheets("Hoja2").Range("A" & Worksheets("Hoja2").[A65536].End(xlUp).Row + 1) = sh.Hyperlink.Address
Next sh

Set sh = Nothing
End Sub


Lo anterior obtendría los hipervínculos de todas las imágenes de Hoja1 y los listaría en Hoja2, a partir de la celda A2
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Jose" escribió en el mensaje news:

Perdonad!
Yo tengo un problemilla parecido, lo único que el hipervínculo está dentro
de una imagen...
Mi idea es copiar los hipervínculos de la imagen para insertarlos en
celdas.. y claro, tengo más de 3000 registros y sería mucho más cómodo si
me creo una macro..
¿Cómo lo puedo hacer?
Muchas gracias!!