Hyperlink.SubAddress-Eigenschaft (Visio)

Artikel
04/07/2023

Dient dem Abrufen oder Festlegen der Unteradresse, die sich im Hyperlink-Objekt eines Shapes befindet. Lese-/Schreibzugriff.

Syntax

Ausdruck. Unteradresse

Ausdruck Eine Variable, die ein Hyperlink-Objekt darstellt.

Rückgabewert

Zeichenfolge

HinwBemerkungeneise

Das Festlegen der SubAddress-Eigenschaft des Hyperlink-Objekts eines Shapes ist optional, es sei denn, die Address-Eigenschaft ist leer. In diesem Fall muss die SubAddress den Namen des Zeichenblatts enthalten.

Das Festlegen der SubAddress-Eigenschaft eines Links entspricht der Eingabe von Informationen in das Feld Unteradresse im Dialogfeld Hyperlinks (klicken Sie auf der Registerkarte Einfügen auf Hyperlink). Dies entspricht auch dem Festlegen des Ergebnisses der Zelle SubAddress im Hyperlink des Shapes. Name-Zeile im ShapeSheet-Fenster.

Die SubAddress-Eigenschaft für ein Hyperlink-Objekt gibt den Unterspeicherort innerhalb der Hyperlinkadresse an. Beim Speichern von Microsoft Visio-Dateien kann es sich dabei um einen Zeichenblattnamen handeln. Bei Microsoft Excel kann dies ein Arbeitsblatt oder ein Bereich auf einem Arbeitsblatt sein. Beim Speichern von HTML-Seiten kann dies ein Unteranker sein.

Die Hyperlinkadresse, für die eine Unteradresse angegeben wird, muss die Verknüpfung von Unteradressen unterstützen.

Beispiel

Das folgende Beispiel zeigt, wie die SubAddress-Eigenschaft verwendet wird, um die Unteradresse eines Links festzulegen. Ersetzen Sie vor dem Ausführen dieses Makros laufwerk\ ordner\unterordner durch einen gültigen Pfad auf Ihrem Computer, ersetzen Sie address durch eine gültige Internet- oder Intranetadresse, ersetzen Sie unteradresse durch eine gültige Unteradresse für die Internet- oder Intranetadresse, ersetzen Sie drawing.vsd durch eine gültige Datei auf Ihrem Computer, und ersetzen Sie anchor durch eine gültige Seite und form in der Datei.

 
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

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.

Share via