Shape.AddHyperlink メソッド (Visio)

Microsoft Visio 図形に Hyperlink オブジェクトを追加します。

構文

AddHyperlink

Shape オブジェクトを表す変数。

戻り値

Hyperlink

注釈

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 のサポートおよびフィードバックを参照してください。