ハイパーリンク オブジェクト (発行元)

ハイパーリンク のコレクションを表します テキスト範囲内のオブジェクト。

注釈

TextRange.Hyperlinks プロパティを使用して、Hyperlinks コレクションを返します。

追加 の使用 ハイパーリンクを作成し、 Hyperlinks コレクションに追加するメソッドです。

文書、範囲、または選択範囲内の単一のハイパーリンク オブジェクトを返すには、ハイパーリンク (インデックス) を使用します。ここで、index はインデックス番号です。

このコレクションの Count プロパティは、指定した図形または選択範囲のみのハイパーリンク数を取得します。

例

次の例では、アクティブな文書内でアドレスに Tailspin という単語が含まれているすべてのテキスト ハイパーリンクを削除します。

Sub DeleteMSHyperlinks() 
 Dim pgsPage As Page 
 Dim shpShape As Shape 
 Dim hprLink As Hyperlink 
 For Each pgsPage In ActiveDocument.Pages 
 For Each shpShape In pgsPage.Shapes 
 If shpShape.HasTextFrame = msoTrue Then 
 If shpShape.TextFrame.HasText = msoTrue Then 
 For Each hprLink In shpShape.TextFrame.TextRange.Hyperlinks 
 If InStr(hprLink.Address, "tailspin") <> 0 Then 
 hprLink.Delete 
 Exit For 
 End If 
 Next 
 Else 
 shpShape.Hyperlink.Delete 
 End If 
 End If 
 Next 
 Next 
End Sub

次の例では、指定された Web サイトへの新しいハイパーリンクを作成します。

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

この例では、指定された選択範囲にハイパーリンクが含まれている場合、最初のハイパーリンクのアドレスが表示されます。

Sub DisplayHyperlinkAddress() 
 With Selection.TextRange.Hyperlinks 
 If .Count > 0 Then _ 
 MsgBox .Item(1).Address 
 End With 
End Sub

メソッド

プロパティ

関連項目

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

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

  • 最終更新: