PhotshopのRGB情報の自動抽出

Photshopで作業しています。
今、いろいろな単色の画像が1000枚ほどあります。 このいろいろな単色のRGB情報を、ファイル名とともにリスト化して、別の作業に使いたいのです。スクリプトでも何でもかまいません。1000枚のRGB情報を一気に取り出す方法はございませんか？全部手作業で取り出すとなると大変すぎて困っています。
ご存じの方やアイデアをお持ちの方、何卒よろしくお願いいたします＞＜

No.1 ベストアンサー 回答者： shut0325 回答日時： 2011/01/19 09:31

スクリプトを使用すれば簡単に実現できます。

MacかWindowsかでスクリプト言語が異なりますが（JAVA Scriptがありますがくわしくありませんので）、流れは同じです。

流れとしては
0-1.テキストファイルを開く（テキストエディタ起動）
0-2.Photoshopを起動。

1.Photoshopでファイルを開く。
2.座標（1.1）にカラーピッカーを配置する。
3.色情報を引き出し、ファイル名と色成分をテキストファイルに書き込む。
このとき扱いやすいようにタブ区切りで書き出していきます。
4.ファイルを保存せずに閉じる
1～4をファイルの分だけループします。

以上が終わったらPhotoshopを閉じ、テキストエディタも保存して閉じます。

情報が見つかりにくいであろうPhotoshopオブジェクト部のVBS(=window)でのサンプルを以下に記述しますので、参考にされてください。

少し書き換えればVBやVBAでも動作します。
テキストエディタに書きコードをコピー＆ペーストし、保存します。
拡張子を.vbsに書き換えます。
Photoshopでテスト画像を開いた状態で、そのVBSの書類をダブルクリックするとファイル名と色成分が書かれたメッセージボックスが表示されます。


-----以下をコピー＆ペーストする

Dim appRef
Set appRef = CreateObject( "Photoshop.Application" )

'アクティブドキュメントを測色の対象にする
Dim ADoc
Set ADoc = appRef.ActiveDocument

'カラーピッカーのセット　ピッカーはピクセル座標の1,1に。

Dim MyColor
Dim MyRGB

Set MyColor = ADoc.ColorSamplers.Add(Array(1,1))
Set MyRGB = MyColor.Color.RGB

'ファイル名とＲＧＢ成分の表示　ＲＧＢ値は整数に変換しています。
msgbox("FileName:" & ADoc.Name & " R : " & CInt(MyRGB.red) & " / G : " & CInt(MyRGB.Green) & " / B : " & CInt(MyRGB.Blue))

'カラーピッカーの消去
MyColor.Delete()

この回答へのお礼

ありがとうございます！！！
やってみます！！！

お礼日時：2011/01/20 17:32