Hyperlinks.Add メソッド (Publisher)

指定した Hyperlinks コレクションに新しい Hyperlink オブジェクトを追加し、新しい Hyperlink オブジェクトを返します。

構文

式。Add (Text、 Address、 RelativePage、 PageID、 TextToDisplay)

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

Parameters

名前	必須 / オプション	データ型	説明
テキスト	必須	TextRange	TextRange オブジェクトです。 ハイパーリンクに変換するテキストの範囲です。
Address	省略可能	String	新しいハイパーリンクのアドレス。 RelativePage が pbHlinkTargetTypeURL (既定値) または pbHlinkTargetTypeEmail の場合は、アドレスを指定する必要があります。またはエラーが発生します。
RelativePage	オプション	PbHlinkTargetType	追加するハイパーリンクの種類を指定します。 PbHlinkTargetType クラスの定数のいずれかを指定できます。既定値は pbHlinkTargetTypeURL です。
PageID	省略可能	長整数型 (Long)	新しいハイパーリンクのリンク先のページのページ ID です。 RelativePage が pbHlinkTargetTypePageID の場合は、PageID を指定する必要があります。またはエラーが発生します。 ページ ID は、リンク先ページの PageID プロパティに対応します。
TextToDisplay	省略可能	String	新しいハイパーリンクの表示テキスト。 指定されている場合、 示します には、引数 Text で指定されたテキスト範囲が置き換えられます。

戻り値

Hyperlink

例

次の使用例は、作業中の文書の 1 ページ目にある 1 番目と 2 番目の図形にハイパーリンクを追加します。 最初のハイパーリンクは外部 Web サイトを指し、2 番目のリンクは文書の 4 番目のページを指します。 図形 1 と図形 2 はテキスト ボックスである必要があります。この例を機能させるには、文書内に少なくとも 4 ページが必要です。

Dim hypNew As Hyperlink 
Dim lngPageID As Long 
Dim strPage As String 
 
With ActiveDocument.Pages(1).Shapes(1).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 Address:="https://www.tailspintoys.com/", _ 
 TextToDisplay:="Tailspin") 
End With 
 
lngPageID = ActiveDocument.Pages(4).PageID 
strPage = "Go to page " _ 
 & Str(ActiveDocument.Pages(4).PageNumber) 
 
With ActiveDocument.Pages(1).Shapes(2).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 RelativePage:=pbHlinkTargetTypePageID, _ 
 PageID:=lngPageID, _ 
 TextToDisplay:=strPage) 
End With

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

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