Propriété Hyperlink.SubAddress (Visio)
Récupère ou définit la sous-adresse d'un objet Hyperlink d'une forme. En lecture/écriture
Syntaxe
expression. Sous-adresse
Expression Variable qui représente un objet Hyperlink .
Valeur renvoyée
Chaîne
Remarques
La définition de la propriété SubAddress d'un objet Hyperlink d'une forme est facultative à moins que la propriété Address ne soit vide. Dans ce cas, la propriété SubAddress doit contenir le nom de la page de dessin.
Définir la propriété SubAddress d’un lien hypertexte équivaut à entrer des informations dans la zone Sous-adresse de la boîte de dialogue Liens hypertexte (sous l’onglet Insertion , cliquez sur Lien hypertexte). Cela revient également à définir le résultat de la cellule SubAddress dans la ligne Hyperlink. nom d'une forme dans la fenêtre ShapeSheet.
La propriété SubAddress d’un objet Hyperlink indique un emplacement secondaire au sein de l’adresse du lien hypertexte. Pour les fichiers Microsoft Visio, il peut s’agir d’un nom de page. Pour Microsoft Excel, il peut s’agir d’une feuille de calcul ou d’une plage sur une feuille de calcul. Pour des pages HTML, il peut s’agir d’une sous-ancre.
L'adresse de lien hypertexte pour laquelle une sous-adresse est fournie doit prendre en charge la liaison SubAddress.
Exemple
L'exemple suivant indique comment utiliser la propriété SubAddress pour définir la sous-adresse d'un lien hypertexte. Avant d’exécuter cette macro, remplacez drive\ folder\subfolder par un chemin d’accès valide sur votre ordinateur, remplacez address par une adresse Internet ou intranet valide, remplacez subaddress par une sous-adresse valide pour l’adresse Internet ou intranet, remplacez drawing.vsd par un fichier valide sur votre ordinateur et remplacez anchor par une page et une forme valides dans le fichier.
Sub SubAddress_Example()
Dim vsoShape As Visio.Shape
Dim vsoHyperlink As Visio.Hyperlink
'Draw a rectangle shape on the active page.
Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)
'Add a hyperlink to the shape.
Set vsoHyperlink = vsoShape.AddHyperlink
'Allow relative hyperlink addresses.
ActiveDocument.HyperlinkBase = "drive:\folder\subfolder "
'Return a relative address.
vsoHyperlink.Address = "..\drawing.vsd "
'Return a relative subaddress.
vsoHyperlink.SubAddress = "anchor "
'Print the resulting URLs to the Debug window
'to show how the relative path is derived
'from the base path and the difference
'between canonical and noncanonical forms.
Debug.Print vsoHyperlink.CreateURL(False)
Debug.Print vsoHyperlink.CreateURL(True)
'Return an absolute address.
vsoHyperlink.Address = "https://address "
'Return an absolute subaddress.
vsoHyperlink.SubAddress = "../subaddress "
'Print the resulting URL to the Debug window
Debug.Print vsoHyperlink.CreateURL(False)
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.