Shape.AddHyperlink 方法 (Visio)

將 Hyperlink 物件新 增至 Microsoft Visio 圖形。

語法

expression。 AddHyperlink

表達 代表 Shape 物件的變數。

傳回值

超連結

註解

使用 AddHyperlink 方法等同於按一下 [插入] 索引標籤上的 [超連結] 將超連結新增至圖形。

如果圖形的 Hyperlink 物件已存在，該方法會傳回對現有 Hyperlink 物件的參考。

範例

本範例會顯示如何使用 AddHyperlink 方法將超連結新增至圖形。 此外還會顯示如何攔截當您嘗試存取不存在之超連結時所發生的錯誤。 它會先嘗試存取某一不存在的超連結，因此造成錯誤，然後再新增該項超連結。 當再度嘗試存取此超連結時，即無錯誤發生。 執行本範例之前，請將 address 取代為有效的網際網路或內部網路位址。

 
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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。