説明
新規の PDF のページに外部ファイルへのリンクを追加します。
注意 : この関数を使用する場合は、CopyForm より前に呼び出す必要があります。
戻り値の型
なし
構文
object.AddExternalLink PageNbr, LLX, LLY, URX, URY, FileName, DestPage, X, Y, Style
AddExternalLink メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
なし |
Toolkit オブジェクト |
|
PageNbr |
Long |
新規の PDF のページ (CopyForm または MergeFile の実行中にリンクを追加する場合は、-1 を使用します) |
|
LLX |
Short |
リンクの左下角の X 座標。PDF 座標で指定します。 |
|
LLY |
Short |
リンクの左下角の Y 座標。PDF 座標で指定します。 |
|
URX |
Short |
リンクの右上角の X 座標。PDF 座標で指定します。 |
|
URY |
Short |
リンクの右上角の Y 座標。PDF 座標で指定します。 |
|
FileName |
String |
リンク先 PDF ファイルのパス |
|
DestPage |
Long |
リンク先 PDF ファイルのページ番号 |
|
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.AddExternalLink 1, intStartX, intStartY, intStartX + intLinkWidth, intStartY + 15, "TestOut.pdf", 1, 0, 0, 1
r = TK.CopyForm(0, 0)
TK.CloseOutputFile
Set TK = Nothing