Clase Hyperlinks - la colección de hipervínculos de una hoja de cálculo o de un rango (Excel VBA)

La clase Hyperlinks representa la colección de hipervínculos de una hoja de cálculo o de un rango. Para usar una variable de clase Hyperlinks, primero debe ser instanciado, por ejemplo

Dim hyps as Hyperlinks
Set hyps = ActiveCell.Hyperlinks

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Hyperlinks en una colección.

Dim hyp As Hyperlink
For Each hyp In ActiveCell.Hyperlinks
	
Next hyp

Add

Agrega un hipervínculo al rango o la forma especificados.

Cuando especifica el argumento TextToDisplay, el texto debe ser una cadena.

Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

With Worksheets(1) 
 .Hyperlinks.Add Anchor:=.Range("a5"), _ 
 Address:="https://example.microsoft.com", _ 
 ScreenTip:="Microsoft Web Site", _ 
 TextToDisplay:="Microsoft" 
End With

Arguments

Estos son los argumentos con nombre :

Anchor (Shape) - Delimitador del hipervínculo.

Address (String) - La dirección del hipervínculo.

Optional arguments

Los siguientes argumentos son opcionales

SubAddress (String) - La subdirección del hipervínculo.

ScreenTip (String) - La información en pantalla para que aparezca cuando se sitúa el puntero del ratón sobre el hipervínculo.

TextToDisplay (String) - El texto que se muestra para el hipervínculo.

Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

Delete

Elimina el objeto.

Llamar al método Delete en el objeto Hyperlinks especificado equivale a usar los comandos Borrar hipervínculos y Borrar formatos de la lista desplegable Borrar de la sección edición del ** Ficha Inicio** . No solo se quitarán los hipervínculos; también se eliminará el formato de celda.

ActiveCell.Hyperlinks.Delete

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow