Clase Hyperlink (Excel VBA)

La clase Hyperlink representa un hipervínculo.

Los principales procedimientos de la clase Hyperlink son Delete, Hyperlinks.Add y Hyperlinks.Delete

Set

Para usar una variable de clase Hyperlink, primero debe ser instanciado, por ejemplo

Dim hyp as Hyperlink
Set hyp = ActiveCell.Hyperlinks(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Hyperlink : Hyperlinks.Item, Hyperlinks.Add, Shape.Hyperlink, Chart.Hyperlinks, Range.Hyperlinks y Worksheet.Hyperlinks

For Each

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

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

Métodos

Los principales métodos de la clase Hyperlink son

Delete - Elimina el objeto.

ActiveCell.Hyperlinks(1).Delete

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

Dim strAddress As String: strAddress = 
Dim hyp As Hyperlink
Set hyp = ActiveCell.Hyperlinks.Add(Anchor:=, Address:=strAddress)

Hyperlinks.Delete - Elimina el objeto.

ActiveCell.Hyperlinks.Delete

Otros Métodos

AddToFavorites - Agrega un acceso directo al libro o un hipervínculo a la carpeta Favoritos.

CreateNewDocument - Crea un nuevo documento vinculado al hipervínculo especificado.

Follow - Muestra un documento almacenado en la memoria caché, si ya se ha descargado.

Propiedades

Address Devuelve o establece un valor de tipo String que representa la dirección del documento de destino.

ActiveCell.Hyperlinks(1).Address =

EmailSubject Devuelve o establece la cadena de texto de la línea de asunto del correo electrónico del hipervínculo especificado.

ActiveCell.Hyperlinks(1).EmailSubject =

Name Devuelve un valor de tipo String que representa el nombre del objeto.

Dim strName As String
strName = ActiveCell.Hyperlinks(1).Name

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks(1).Parent

Range Devuelve un objeto Range que representa el rango al que está adjunto el hipervínculo especificado.

Dim rngRange As Range
Set rngRange = ActiveCell.Hyperlinks(1).Range

ScreenTip Devuelve o establece el texto de la información en pantalla para el hipervínculo especificado.

ActiveCell.Hyperlinks(1).ScreenTip =

Shape Devuelve un objeto Shape que representa la forma adjunta al hipervínculo especificado.

Dim shpShape As Shape
Set shpShape = ActiveCell.Hyperlinks(1).Shape

SubAddress Devuelve o establece la ubicación dentro del documento a la que hace referencia el hipervínculo.

ActiveCell.Hyperlinks(1).SubAddress =

TextToDisplay Devuelve o establece el texto que se mostrará para el hipervínculo especificado.

ActiveCell.Hyperlinks(1).TextToDisplay =

Type Devuelve un valor de tipo Long , que contiene una constante MsoHyperlinkType y representa la ubicación del marco HTML.

Dim msohType As MsoHyperlinkType
msohType = ActiveCell.Hyperlinks(1).Type

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

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

Hyperlinks.Item Devuelve un solo objeto de una colección.

Dim hypItem As Hyperlink
Set hypItem = ActiveCell.Hyperlinks(Index:=1)

Hyperlinks.Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks.Parent