Classe Hyperlinks - la collection de liens hypertexte d'une plage ou d'une feuille de calcul (Excel VBA)

La classe Hyperlinks représente la collection de liens hypertexte d'une plage ou d'une feuille de calcul. Pour utiliser une variable de classe Hyperlinks, elle doit d'abord être instanciée, par exemple

Dim hyps as Hyperlinks
Set hyps = ActiveCell.Hyperlinks

For Each

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

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

Add

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

Lorsque vous spécifiez l'argument TextToDisplay, le texte doit être une chaîne.

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

Les arguments nommés :

Anchor (Shape) - Le point d’ancrage du lien hypertexte. Il peut s’agit d’un objet Range ou Shape.

Address (String) - Adresse du lien hypertexte.

Optional arguments

Les arguments suivants sont facultatifs

SubAddress (String) - Sous-adresse du lien hypertexte.

ScreenTip (String) - Info-bulle à afficher quand vous positionnez le pointeur de la souris sur le lien hypertexte.

TextToDisplay (String) - Texte à afficher pour le lien hypertexte.

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

Delete

Cette méthode supprime l'objet.

L’appel de la méthode Delete sur l’objet Hyperlinks spécifié revient à utiliser les commandes effacer les liens hypertexte et effacer les formats de la liste déroulante Effacer de la section modification du ** Onglet Accueil** . Non seulement les liens hypertexte seront supprimés; la mise en forme des cellules sera également supprimée. Si vous souhaitez uniquement supprimer le lien hypertexte, voir la méthode Range. ClearHyperlinks, .

ActiveCell.Hyperlinks.Delete

Item

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

Item (Index)

Index: Nom ou numéro d'index de l'objet.

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