Classe Hyperlink (Excel VBA)

Cet objet représente un lien hypertexte.

Les procédures principales de la classe Hyperlink sont Delete, Hyperlinks.Add et Hyperlinks.Delete

Set

Pour utiliser une variable de classe Hyperlink, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Hyperlink : Hyperlinks.Item, Hyperlinks.Add, Shape.Hyperlink, Chart.Hyperlinks, Range.Hyperlinks et Worksheet.Hyperlinks

For Each

Voici un exemple de traitement des éléments Hyperlink dans une collection

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

Méthodes

Les méthodes principales de la classe Hyperlink sont

Delete - Cette méthode supprime l'objet.

ActiveCell.Hyperlinks(1).Delete

Hyperlinks.Add - Ajoute un lien hypertexte à la forme ou à la plage spécifiée.

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

Hyperlinks.Delete - Cette méthode supprime l'objet.

ActiveCell.Hyperlinks.Delete

Autre Méthodes

AddToFavorites - Cette méthode ajoute un raccourci vers le classeur ou un lien hypertexte dans le dossier Favoris.

CreateNewDocument - Crée un document lié au lien hypertexte spécifié.

Follow - Affiche un document mis en cache s'il a déjà été téléchargé. Sinon, cette méthode résout le lien hypertexte, télécharge le document cible et affiche le document dans l'application appropriée.

Propriétés

Address Cette propriété renvoie ou définit une valeur de type String qui représente l'adresse du document cible.

ActiveCell.Hyperlinks(1).Address =

EmailSubject Cette propriété renvoie ou définit la chaîne de texte de la ligne d'objet du message électronique spécifié. La ligne d'objet est ajoutée à l'adresse du lien hypertexte. String en lecture/écriture.

ActiveCell.Hyperlinks(1).EmailSubject =

Name Renvoie une valeur de type String qui représente le nom de l'objet.

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

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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

Range Renvoie un objet Range qui représente la plage à laquelle le lien hypertexte spécifié est attaché.

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

ScreenTip Cette propriété renvoie ou définit le texte d'info-bulle du lien hypertexte spécifié. String en lecture/écriture.

ActiveCell.Hyperlinks(1).ScreenTip =

Shape Renvoie un objet Shape qui représente la forme liée au lien hypertexte spécifié.

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

SubAddress Cette propriété renvoie ou définit l'emplacement dans le document associé au lien hypertexte. String en lecture/écriture.

ActiveCell.Hyperlinks(1).SubAddress =

TextToDisplay Cette propriété renvoie ou définit le texte à afficher pour le lien hypertexte spécifié. La valeur par défaut est l'adresse du lien hypertexte. String en lecture/écriture.

ActiveCell.Hyperlinks(1).TextToDisplay =

Type Renvoie une valeur de type long , contenant une constante MsoHyperlinkType qui représente l'emplacement du cadre html.

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

Hyperlinks.Count Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

Hyperlinks.Item Cette méthode renvoie un seul objet d'une collection.

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

Hyperlinks.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

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