Hyperlinks オブジェクト (Publisher)

  • [アーティクル]

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

注釈

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

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

文書、範囲、または選択範囲の 1 つの Hyperlink オブジェクトを返すには、Hyperlinks (index) を使用します。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 のサポートおよびフィードバックを参照してください。