Shape. AddHyperlink メソッド (Visio)Shape.AddHyperlink method (Visio)

Microsoft Visio 図形にHyperlinkオブジェクトを追加します。Adds a Hyperlink object to a Microsoft Visio shape.

構文Syntax

expression.expression. AddHyperlink

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

戻り値Return value

HyperlinkHyperlink

注釈Remarks

Addhyperlinkメソッドを使用することは、[挿入] タブの [ハイパーリンク] をクリックして、図形にハイパーリンクを追加する操作と同じです。Using the AddHyperlink method is equivalent to adding a hyperlink to a shape by clicking Hyperlink on the Insert tab.

その図形にハイパーリンクオブジェクトが既に存在する場合、このメソッドは、既存のhyperlinkオブジェクトへの参照を返します。If a Hyperlink object already exists for the shape, the method returns a reference to the existing Hyperlink object.

Example

この例では、 addhyperlinkメソッドを使用して、図形にハイパーリンクを追加する方法を示します。This example shows how to use the AddHyperlink method to add a hyperlink to a shape. さらに、存在しないハイパーリンクにアクセスしようとするときに発生するエラーをトラップする方法を示します。It also shows how to trap errors that arise when you try to access nonexistent hyperlinks. 最初に存在しないハイパーリンクにアクセスを試み、エラーを生成します。It first attempts to access a hyperlink that does not exist, thereby throwing an error. ハイパーリンクが追加されてから、そのハイパーリンクに再度アクセスすると、エラーは生成されません。Then it adds the hyperlink, and when it attempts to access the hyperlink a second time, no error is thrown. この例を実行する前に、address を有効なインターネット アドレスまたはイントラネット アドレスに変更してください。Before running this example, replace address with a valid Internet or intranet 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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.