Shape.AddHyperlink, méthode (Visio)

Article
04/07/2023

Ajoute un objet Hyperlink à une forme Microsoft Visio.

Syntaxe

expression. AddHyperlink

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Hyperlink

Remarques

L’utilisation de la méthode AddHyperlink revient à ajouter un lien hypertexte à une forme en cliquant sur Liens hypertexte sous l’onglet Insertion.

S'il existe déjà un objet Hyperlink pour la forme, la méthode renvoie une référence à l'objet Hyperlink existant.

Exemple

Cet exemple indique comment utiliser la méthode AddHyperlink pour ajouter un lien hypertexte à une forme. Il indique également comment détecter les erreurs qui surviennent lorsque vous essayez d'accéder à des liens hypertexte inexistants. D'abord, il tente d'accéder à un lien hypertexte inexistant et, de ce fait, renvoie une erreur. Ensuite, il ajoute le lien hypertexte et lorsqu'il tente d'y accéder pour la seconde fois, aucune erreur n'est renvoyée. Avant d'exécuter cet exemple, remplacez address par une adresse Internet ou intranet valide.

 
Sub AddHyperlink_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 Dim blsCaught As Boolean 
 
 'Draw a rectangle shape on the active page. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 
 'A shape that has no hyperlink should raise an exception 
 'when the Hyperlink property is accessed. 
 On Error GoTo lblCatch 
 
 blsCaught = False 
 Set vsoHyperlink = vsoShape.Hyperlink 
 
 If Not blsCaught Then 
 Debug.Print "ERROR - Hyperlink didn't throw an exception!" 
 End If 
 
 'Add a hyperlink to a shape. 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Return an absolute address. 
 vsoHyperlink.Address = "address " 
 
 Exit Sub 
 
 lblCatch: 
 Debug.Print "Error was thrown : " & Err.Description 
 blsCaught = True 
 Resume Next 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via