XdwAnnImage

種別 アノテーション
説明 指定したDocuWorksファイルに、画像をアノテーションする。

ver9.1以降、部品ファイル(拡張子 PprImage)を指定し、
貼り付けることも可能となりました。(幅、高さは指定できません)

構文 XdwAnnImage([FilePath], ImageFile[, page], x, y, w, h[, unit][, nLock])
引数 FilePath :アノテーションするDocuWorksファイルを指定。
  ""なら、現在のファイル(初期値は、"")
ImageFile:画像ファイルのファイルパス
  ver7.1より、XDW(DocuWorks)、MP4(動画)も貼付け可能に。
page :ページ番号を数値で指定。(初期値は、1)
x,y,w,h :画像の開始位置と幅、高さ
unit :0ならmm単位、1ならピクセル単位。(初期値は、0)
nLock :0なら固定なし、1なら固定。(初期値は、0)
戻り値 成功時は1、失敗時は0。
使用例 dim sFile,sImage,x,y,w,h,unit,nLock

sImage = #FILE_DIR# & "Image.JPG"
sFile = #FILE_DIR# & "abcd.XDW"

'現在ファイルの現在のページに、指定画像をmm単位で貼付
XdwAnnImage(,sImage, #PAGENO#, 100,50,50,50)

'現在ファイルの1ページ目に、指定画像をピクセル単位で貼付し、固定
XdwAnnImage(,sImage, 2, 100,50,50,50,1,1)

'指定ファイルの2ページ目に、指定画像を貼付
XdwAnnImage(sFile, sImage, 1, 100,50,50,50)

'指定ファイルの1ページ目に、DocuWorksファイルを貼付
sImage = #FILE_DIR# & "DocuWorks.XDW"
XdwAnnImage(sFile, sImage, 1, 100,50,50,50)

'指定ファイルの2ページ目に、動画ファイルを貼付
sImage = #FILE_DIR# & "動画.MP4"
XdwAnnImage(sFile, sImage, 2, 100,50,50,50)

'指定ファイルの1ページ目に、部品ファイルを貼付
sImage = #FILE_DIR# & "部品.PprImage"
XdwAnnImage(sFile, sImage, 1, 100,50,0,0)
実例  
備考 関連する関数(XdwAnnText、XdwAnnProperty、XdwAnnDate、 XdwAnnImage、XdwAnnShape、XdwFieldData、GetTextData)

ver7.0以降、利用可能。