Hyperlinks.Add メソッド (発行元)

指定したハイパーリンク コレクションに新しいハイパーリンク オブジェクトを追加し、その新しいハイパーリンク オブジェクトを返します。

構文

式。Add (text, address, RelativePage, PageID, TextToDisplay)

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

Parameters

名前 必須 / オプション データ型 説明
テキスト 必須 TextRange TextRange オブジェクトです。 ハイパーリンクに変換するテキストの範囲です。
Address 省略可能 String 新しいハイパーリンクのアドレス。 RelativePage が pbHlinkTargetTypeURL (既定) または pbHlinkTargetTypeEmail の場合は、Address を指定する必要があります。指定しないとエラーが発生します。
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 のサポートおよびフィードバックを参照してください。

  • Last updated on