0 返信 最新の返信: Apr 7, 2003 3:23 PM by (Hirotugu) RSS

    photoshop5.02でグレースケールの外部自動処理

    Community Member
      はじめまして・・
      私田舎デザイナーで、プログラムにはそれほど詳しくありませんが、興味はあります。
      現在仕事のお昼休みか、帰る時に、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プロファイル以外は店に売られている物と変わりません。