Shape.AddHyperlink-Methode (Visio)

Artikel
10/16/2024

Fügt einem Microsoft Visio-Shape ein Hyperlink-Objekt hinzu.

Syntax

Ausdruck. AddHyperlink

expression Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Hyperlink

Hinweise

Die Verwendung der AddHyperlink-Methode ist identisch mit dem Hinzufügen eines Hyperlinks zu einem Shape, indem Sie auf der Registerkarte Einfügen auf Hyperlink klicken.

Wenn für das Shape bereits ein Hyperlink-Objekt vorhanden ist, gibt die Methode einen Verweis auf das vorhandene Hyperlink-Objekt zurück.

Beispiel

Dieses Beispiel veranschaulicht die Verwendung der AddHyperlink-Methode, um einem Shape einen Hyperlink hinzuzufügen. Es zeigt außerdem, wie Sie Fehler auffangen, die beim Zugriff auf nicht vorhandene Hyperlinks generiert werden. Zunächst wird versucht, auf einen nicht vorhandenen Hyperlink zuzugreifen, wodurch ein Fehler gemeldet wird. Anschließend wird der Hyperlink hinzugefügt, und beim zweiten Zugriffsversuch auf den Hyperlink wird kein Fehler gemeldet. Ersetzen Sie address durch eine gültige Internet- oder Intranetadresse, bevor Sie dieses Beispiel ausführen.

 
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

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