SetHeaderTIFF

説明

MergeFile および CopyForm に適用するすべてのページに出力する TIFF 画像を指定します。

戻り値の型

Long

戻り値

説明

-998

製品の未登録/評価版の期限切れ

-997

必要な製品バージョンの未登録

99

入力ファイルを開けません

97

無効な TIFF が指定されました

1

正常終了

構文

object.SetHeaderTIFF FileName, X, Y, Width, Height, PersistRatio

SetHeaderTIFF メソッドは次のパラメータから構成されています。

パラメータ

値の型

説明

Object

 

Toolkit オブジェクト

FileName

String

TIFF へのフルパス

X

Float

TIFF の左下角の始点 X 座標。PDF 座標で指定します。

Y

Float

TIFF の左下角の始点 Y 座標。PDF 座標で指定します。

Width

Float

PDF 座標で指定された TIFF の幅 (画像のデフォルトには 0 を指定します)

Height

Float

PDF 座標で指定された TIFF の高さ (画像のデフォルトには 0 を指定します)

PersistRatio

Long

1 = 高さと幅は固定比率 (0 以外を設定した場合)

 

 

0 = 高さと幅を伸縮

Example

strPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\"

Set TK = CreateObject("APToolkit.Object")

r = TK.OpenOutputFile("Output.pdf")

r = TK.OpenInputFile("Input.pdf")

r = TK.SetHeaderTIFF("FirstFive.tif", 0, 0, 612, 792, 1)

r = TK.CopyForm(1, 5)

TK.ClearHeaderInfo 'clear the TIFF from the Header

r = TK.CopyForm(6, 0) 'copy the rest of the pages

TK.CloseOutputFile

Set TK = Nothing