説明
既存の PDF に他のページへのハイパーリンクを追加します。
注意 : この関数を使用する場合は、CopyForm より前に呼び出す必要があります。
戻り値の型
なし
構文
object.AddInternalLink PageNbr, LLX, LLY, URX, URY, DestPage, X, Y, Style
AddInternalLink メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
|
Toolkit オブジェクト |
|
PageNbr |
Long |
ハイパーリンクを挿入する PDF のページ番号 (CopyForm または MergeFile の実行中にリンクを追加する場合は、-1 を使用します) |
|
LLX |
Short |
リンクの左下角の X 座標。PDF 座標で指定します。 |
|
LLY |
Short |
リンクの左下角の Y 座標。PDF 座標で指定します。 |
|
URX |
Short |
リンクの右上角の X 座標。PDF 座標で指定します。 |
|
URY |
Short |
リンクの右上角の Y 座標。PDF 座標で指定します。 |
|
DestPage |
Long |
リンク先のページ番号 |
|
X |
Short |
リンク先の X 座標。PDF 座標で指定します。 |
|
Y |
Short |
リンク先の Y 座標。PDF 座標で指定します。 |
|
Style |
Short |
リンクのボックス スタイル |
|
|
|
-1 = 非表示 |
|
|
|
0 = 黒の実線 |
|
|
|
1 = 赤の破線 |
|
|
|
2 = 赤の実線 |
|
|
|
3 = 緑の破線 |
|
|
|
4 = 緑の実線 |
|
|
|
5 = 青の破線 |
|
|
|
6 = 青の実線 |
例
strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"
Set TK = CreateObject("APToolkit.Object")
r = TK.OpenOutputFile("Output.pdf")
strTextToPrint = "Open page 2 of TestOut.pdf"
TK.SetFont "Helvetica", 15
intLinkWidth = TK.GetTextWidth(strTextToPrint)
TK.PrintText 72, 72, strTextToPrint
intStartX = 72
intStartY = 72
TK.AddInternalLink 1, intStartX, intStartY, intStartX + intLinkWidth, _
intStartY + 15, 2, 0, 0, 1
TK.NewPage
TK.SetFont "Helvetica", 15
TK.PrintText 100, 100, "link me!"
r = TK.CopyForm(0, 0)
TK.CloseOutputFile
Set TK = Nothing