Shape.AddHyperlink-Methode (Visio)
Fügt einem Microsoft Visio-Shape ein Hyperlink-Objekt hinzu.
Syntax
Ausdruck. AddHyperlink
Ausdruck Eine Variable, die ein Shape-Objekt darstellt.
Rückgabewert
Hyperlink
HinwBemerkungeneise
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für