フォトショップスクリプト

さすがに2日連続（半）徹夜はこたえるカモ

自分用メモ
VBの場合ネットにあんまり情報なかったなぁ
リファレンスもわかりにくかったし・・・うー

Set docimg = appRef.Open(imgfile) '画像（グレースケール）を開く
docheight = docimg.Height '画像サイズの取得（高さ）
docwidth = docimg.Width '画像サイズの取得（幅）

Set artLayergrayslope = docimg.ActiveLayer 'グレースケールレイヤ
If (artLayergrayslope.IsBackgroundLayer) Then
artLayergrayslope.IsBackgroundLayer = False
End If
artLayergrayslope.Invert '階調反転
artLayergrayslope.Copy 'コピーして
docimg.Close (2)

Set docnew = appRef.Documents.Add(docwidth, docheight, 72, rrimfl, 2) '新しいドキュメント（RGB）の生成

docimg.Paste