はじめまして・・
私田舎デザイナーで、プログラムにはそれほど詳しくありませんが、興味はあります。
現在仕事のお昼休みか、帰る時に、500点い近い画像をバッジ処理で、モノクロ化しているわけですが、ある日、実行ファイルをタスクに登録して昼12時になったら処理を実行できたらいいんじゃ ない。!と思い、スクリプトに挑戦してみたのですが、肝心なアクションの自動化部分が、わかりずらく(推測、PLAYと始まっている関数が、アクションを実行する式なのでしょが?INDEXと かIDとかを数値の引数として渡さなくいけない様で、これが何だか、見えてこなく、わかりません。会社のPhotoShopのバージョンもちょっと古いし、色々資料をあさってみたのですが、有 効な情報がありません。今のところ以下の所まで、成功してます。
Private Sub btn_開く_Click()
On Error GoTo Err_btn_開く_Click
Dim objp As New PhotoshopApplication
Dim doc As IAutoPSDoc
objp.Visible = True
Set doc = objp.Open("D:¥00208.eps")
doc.Activate
doc.SaveTo ("E:¥こぴ〜だよ〜ん.eps")
doc.Close
Exit_btn_開く_Click:
Exit Sub
Err_btn_開く_Click:
MsgBox Err.Description
Resume Exit_btn_開く_Click
End Sub
PhotoShopのインスタンスを作成して、
ファイルを開き、別のドライブへ保存します。OPENだけでは、PhotoShopはなにもせず
ファイルを閉じます。今後、ダイアログとループを付け加えて実験してみようと思います。
アクション部分の操作に詳しい方がおりましたら、教えて下さい。OSはWINDOWS98で、PhotoShopのバージョンは5.02です。
ICCプロファイル以外は店に売られている物と変わりません。