説明
新規の PDF のページに URL へのリンクを追加します。
戻り値の型
なし
構文
object.AddHyperlink PageNbr, LLX, LLY, URX, URY, URL, Style
AddHyperlink メソッドは次のパラメータから構成されています。
|
パラメータ |
値の型 |
説明 |
|
Object |
|
Toolkit オブジェクト |
|
PageNbr |
Long |
新規の PDF のページ (CopyForm または MergeFile の実行中にリンクを追加する場合は、-1 を使用します) |
|
LLX |
Short |
新規の PDF のページ (CopyForm または MergeFile の実行中にリンクを追加する場合は、-1 を使用します) |
|
LLY |
Short |
リンクの左下角の X 座標。PDF 座標で指定します。 |
|
URX |
Short |
リンクの左下角の Y 座標。PDF 座標で指定します。 |
|
URY |
Short |
リンクの右上角の X 座標。PDF 座標で指定します。 |
|
URL |
String |
リンク先インターネットの URL |
|
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 = "Visit activePDF!"
TK.SetFont "Helvetica", 15
intLinkWidth = TK.GetTextWidth(strTextToPrint)
TK.PrintText 72, 72, strTextToPrint
intStartX = 72
intStartY = 72
TK.AddHyperlink 1, intStartX, intStartY, intStartX + intLinkWidth, _
intStartY + 15, "http://www.activepdf.com", 1
r = TK.CopyForm(0, 0)
TK.CloseOutputFile
Set TK = Nothing