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
Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Hyperlinks : Chart.Hyperlinks, Range.Hyperlinks et Worksheet.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
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