activePDF Toolkit 2011 API リファレンス
AddHyperlink
テクニカル リファレンス > Toolkit オブジェクト > Toolkit メソッド > AddHyperlink

Glossary Item Box

説明: 指定した URL へのハイパーリンクを追加します。リンクをクリックすると、ブラウザで指定した URL が開きます。
構文: object.AddHyperlink PageNbr, LLX, LLY, URX, URY, DestURL, Style
引数: 引数 値の型 説明 & 設定
object N/A オブジェクトのインスタンスを設定します。
PageNbr Long 0 = 新規または現在開いているページにリンクを追加します。(デフォルト)
>1 = 指定したページにリンクを追加します。
-1 = すべてのページにリンクを追加します。
LLX Short リンクの左下角の X 座標。PDF 座標で指定します。
LLY Short リンクの左下角の Y 座標。PDF 座標で指定します。
URX Short リンクの右上角の X 座標。PDF 座標で指定します。
URY Short リンクの右上角の Y 座標。PDF 座標で指定します。
DestURL String リンク先の URL へのフルパス
Style Short リンクのボックス スタイル
-1 = 非表示
0 = 黒の実線
1 = 赤の破線
2 = 赤の実線
3 = 緑の破線
4 = 緑の実線
5 = 青の破線
6 = 青の実線
例:

'AddHyperlink Example
Set TK = CreateObject("APToolkit.Object")
r = TK.OpenOutputFile("AddHyperlink.pdf")
'Set the font and color for our visible text
strFontSize = 20
TK.SetFont "Helvetica", strFontSize, 0
TK.SetTextColor 0, 0, 255, 0, 0
'Get the width of the text so we know how wide to make the link
strLinkText = "www.activePDF.com"
strTextWidth = TK.GetTextWidth(strLinkText, 0)
'Print the text that will show for the link
strLLX = 30
strLLY = 740
TK.PrintText strLLX, strLLY, strLinkText, 0
'Add the Hyperlink over the recently placed text
strURL = "http://www.activepdf.com"
TK.AddHyperlink 0, strLLX, strLLY, strLLX + strTextWidth, strLLY + strFontSize, strURL, 0
TK.CloseOutputFile
Set TK = Nothing