Hyperlink.CreateURL-Methode (Visio)

Artikel
10/16/2024

Gibt eine vollqualifizierte und optional kanonische Darstellung der absoluten Adresse des Hyperlinks zurück.

Syntax

Ausdruck. CreateURL( _CanonicalForm_ )

Ausdruck Eine Variable, die ein Hyperlink-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
CanonicalForm	Erforderlich	Integer	True (ungleich Null) für die kanonische Form, andernfalls False (0).

Rückgabewert

String

Hinweise

Mithilfe der CreateURL-Methode des Hyperlink-Objekts können relative URLs für die Basisadresse eines Hyperlinks aufgelöst werden.

Wenn Sie die kanonische Form verwenden, wendet die CreateURL-Methode URL-Kanonisierungsregeln auf den Link an. Während der Kanonisierung werden nur Leerzeichen URL-codiert. Port 80 wird für HTTP-URLs angenommen und während der Kanonisierung entfernt. Beispielsweise die URL "https://www.microsoft.com:80/" wird als "https://www.microsoft.com/" zurückgegeben, in der Erwägung, dass https://www.microsoft.com:1000/" ist unverändert.

Beispiel

Es folgen einige Beispiele für Ergebnisse der CreateURL-Methode:

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"

Beispiel für relativen Pfad:

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

Im folgenden Beispiel wird gezeigt, wie Sie mit der CreateURL-Methode relative URLs für die Basisadresse eines Hyperlinks auflösen. Ersetzen Sie vor dem Ausführen dieses Makros laufwerk\ordner\unterordner durch einen gültigen Dateipfad auf Ihrem Computer, ersetzen Sie address durch eine gültige Internet- oder Intranetadresse, und ersetzen Sie drawing.vsd durch eine gültige Datei auf Ihrem Computer.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über