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 のサポートおよびフィードバックを参照してください。