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