人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Javascriptからペイント(mspaint.exe)を制御し、PrintScreenで取得した画像をトリミング後保存する方法
Javascriptを使用するとペイントやVBAを制御することが可能だということはわかったのですが、以下のことはできるでしょうか?
1.PrintScreenで取得した画像をmspaint.exeに貼り付けて、トリミング後に保存(トリミングがしたいです)
色々とWebを検索してみたのですが、PrintScreenした画像を保存するということ以外は見当たらなかったので、可能かどうか(可能であればどうすれば良いのか)が知りたいです。

※一番参考になっているサイトは以下URLです。
http://d.hatena.ne.jp/language_and_engineering/20081121/1227203100

●質問者: keijun5145
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3

ペイントを制御する方法ではないのですが、画像ファイルのトリミングを Windows 標準の範囲でやるなら WIA というのがあるみたいです。
XP 以降なら使えるようです。

http://msdn.microsoft.com/en-gb/library/windows/desktop/ms630819%28v=vs.85%29.aspx#itemCrop

Dim Img 'As ImageFile
Dim IP 'As ImageProcess

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")

Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp"

IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = Img.Width \ 4
IP.Filters(1).Properties("Top") = Img.Height \ 4
IP.Filters(1).Properties("Right") = Img.Width \ 4
IP.Filters(1).Properties("Bottom") = Img.Height \ 4

Set Img = IP.Apply(Img)

Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCrop.bmp"

ちょっと試した感じでは、ImageFile#SaveFile は上書き保存ができないようなので、ファイルを置き換えたいなら削除してから SaveFile をするような感じにしてあげる必要があります。


質問者から

ImageMagickをこれからインストールするので、その対応を教えて下さい。


関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ