Hyperlink オブジェクト (Publisher)

ハイパーリンクを表します。 Hyperlink オブジェクトは Hyperlinks コレクション、 Shape オブジェクト、および ShapeRange オブジェクトのメンバーです。

注釈

図形に関連付けられている Hyperlink オブジェクトを取得するには、Shape.Hyperlink プロパティを使用します (図形に含めることができるハイパーリンクは 1 つだけです)。

文書、範囲、または選択範囲から 1 つの Hyperlink オブジェクトを返すには、Hyperlinks (index) を使用します。index はインデックス番号です。

Add メソッドを使用してハイパーリンクを追加します。

Address プロパティを使用して、ハイパーリンクのアドレスを追加または変更します。

例

次の使用例は、作業中の文書の最初の図形と関連するハイパーリンクを削除します。

Sub DeleteHyperlink() 
 ActiveDocument.Pages(1).Shapes(1).Hyperlink.Delete 
End Sub

次の使用例は、選択範囲の最初のハイパーリンクを削除します。

Sub DeleteSelectedHyperlink() 
 If Selection.TextRange.Hyperlinks.Count >= 1 Then 
 Selection.TextRange.Hyperlinks(1).Delete 
 End If 
End Sub

次の使用例は、選択されたテキストにハイパーリンクを追加します。

Sub AddHyperlinkToSelectedText() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

次の使用例は、作業中の文書に図形を追加し、その図形にハイパーリンクを追加します。

Sub AddHyperlinkToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=200, _ 
 Top:=200, Width:=300, Height:=300) 
 .Hyperlink.Address = "https://www.tailspintoys.com/" 
 End With 
End Sub

メソッド

• Delete
• SetPageRelative

プロパティ

• Address
• アプリケーション
• EmailSubject
• PageID
• Parent
• Range
• 図形
• TargetType
• TextToDisplay
• 型

関連項目

• Publisher オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。