Méthode Hyperlink.CreateURL (Visio)

Article
04/07/2023

Renvoie une représentation complète et facultativement standardisée de l'adresse absolue d'un lien hypertexte.

Syntaxe

expression. CreateURL( _CanonicalForm_ )

Expression Variable qui représente un objet Hyperlink .

Parameters

Nom	Requis/Facultatif	Type de données	Description
CanonicalForm	Requis	Integer	True (non nul) si forme standardisée ; False (0) dans le cas contraire.

Valeur renvoyée

Chaîne

Remarques

La méthode CreateURL de l'objet Hyperlink peut être utilisée pour résoudre les URL relatives par rapport à l'adresse de base d'un lien hypertexte.

Lorsque vous utilisez la forme standardisée, la méthode CreateURL applique les règles de standardisation des URL au lien hypertexte. Seuls les espaces sont encodés durant la standardisation. Le port 80, sous-entendu pour les URL http, est supprimé durant l'opération. Par exemple, l’URL «https://www.microsoft.com:80/" ; est retourné en tant que « https://www.microsoft.com/", tandis que https://www.microsoft.com:1000/" est inchangé.

Exemple

Voici quelques exemples de résultats de la méthode CreateURL :

Address = "https://www.microsoft.com/" 
CreateURL(False) returns "https://www.microsoft.com/" 
 
Address = "C:\My Documents\Spreadsheet.XLS" 
CreateURL(False) returns "file://C:\My Documents\Spreadsheet.XLS" 
CreateURL(True) returns "file://C:\My%20Documents\Spreadsheet.XLS"

Exemple de chemin d'accès relatif :

Assume : Document.HyperlinkBase = "https://www.microsoft.com/widgets/" 
Address = "../file.htm" 
CreateURL(False) returns "https://www.microsoft.com/file.htm"

L'exemple suivant indique comment utiliser la méthode CreateURL pour résoudre des URL relatives par rapport à l'adresse de base d'un lien hypertexte. Avant d’exécuter cette macro, remplacez drive\folder\subfolder par un chemin de fichier valide sur votre ordinateur, remplacez adresse par une adresse Internet ou intranet valide et remplacez drawing.vsd par un fichier valide sur votre ordinateur.

 
Sub CreateURL_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 a shape 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Allow relative hyperlink addresses 
 ActiveDocument.HyperlinkBase = "drive :\folder \subfolder " 
 
 'Return a relative address 
 vsoHyperlink.Address = "..\drawing.vsd " 
 
 '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 non-canonical forms 
 Debug.Print vsoHyperlink.CreateURL(False) 
 Debug.Print vsoHyperlink.CreateURL(True) 
 
 'Return an absolute address 
 vsoHyperlink.Address = "https://address " 
 
 '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.

Partager via