Hyperlink.SetPageRelative メソッド (Publisher)
指定したハイパーリンクの飛び先の種類を設定します。
構文
式。SetPageRelative (RelativePage)
式Hyperlink オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| RelativePage | 必須 | PbHlinkTargetType | ハイパーリンクの飛び先の種類を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbHlinkTargetType クラスの定数のいずれかを指定できます。 |
例
次の使用例は、作業中の文書の 1 番目のページの 1 番目の図形に 4 つの新しいハイパーリンクを追加し、そのターゲットを設定します。
Sub SetHyperlinkRelativeTarget()
Dim hypNew As Hyperlink
Dim txtRng As TextRange
ActiveDocument.Pages(1).Shapes _
.AddTextbox Orientation:=pbTextOrientationHorizontal, _
Left:=10, Top:=10, Width:=200, Height:=200
Set txtRng = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange
txtRng.Text = "First Page" & vbCrLf
Set txtRng = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange
Set hypNew = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
'Change hyperlink to be a Page-relative link
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeFirstPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Previous Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1).TextFrame _
.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypePreviousPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Next Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeNextPage
txtRng.Collapse pbCollapseEnd
txtRng.Text = "Last Page" & vbCrLf
Set hypNew = ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Hyperlinks.Add(Text:=txtRng, _
Address:="https://www.tailspintoys.com/")
hypNew.SetPageRelative RelativePage:=pbHlinkTargetTypeLastPage
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。