クリップボード上の画像をImageMagick（VBS）を使用して保存するには…
以前も質問させていただきましたが、
プリントスクリーンで画像をクリップボード上に保存してトリミングを行った後に指定したファイル名で保存したいです。（ファイル名は固定（ファイルは１つ））
この場合のVBSのコードはどうなるのでしょうか？
最終的にMakeExeを使用して1つのファイルにしたいので、全てVBSでコーディングしたいです。
※現在クリップボード上に保存したい画像を読み込み、ImageMagickのオブジェクトを生成するところまではできています。
以下がこれから実現したいことです。
１．生成したオブジェクトを利用してクリップボード上の画像を読み込む
２．読み込んだ画像をトリミングする（座標はわかっています）
３．トリミングまで完了したデータを指定ファイル名（ファイル形式はJPG）で保存
この3点を実現したいです。
※作成したBatを読み込んで動作させることはできています。
ベストアンサー
-
TransFreeBSD
動作確認はしていませんが、a-kuma3さんのコメント
http://q.hatena.ne.jp/1418773003#c279190
を参考に、私の回答
http://q.hatena.ne.jp/1419480569#a1242015
を変更すると、Set img = CreateObject("ImageMagickObject.MagickImage.1") Call img.Convert( _ "clipboard:", _ "-crop", _ "960x720+160+0", _ "+repage", _ strFileName )これで良いと思うのですが。
コマンドラインとそんなに変わらないらしいです。 -
TransFreeBSDその他の回答
-
keijun5145
作成済みのコードは以下になります。
※最下段のバッチファイルを実行する部分が変化すると思います。
ご教示よろしくお願いします。
Option Explicit
Dim xlsa
Dim Batobj
Dim Path
'カレントフォルダのパスを取得
Set path = CreateObject("Scripting.FileSystemObject").GetFolder(".")
'エクセルオブジェクトを作成の数値を反映
Set xlsa = WScript.CreateObject("Excel.Application")
xlsa.visible = true
'AAAというマクロをBBB.xlsmを開いて実行
'BBBというマクロファイルの中にあるAAAというVBAは指定した画像をクリップボードに保存するためのもの
xlsa.Run "'" & path & "\BBB.xlsm'!AAA"
'シェルスクリプトを作成してCCCというBATファイルを実行
'CCC：クリップボードから指定名の画像ファイルを作成するバッチファイル
Set batobj = createobject("WScript.Shell")
batobj.run(path & "\CCC.BAT")
この質問へのコメント
質問の情報
- 登録日時
- 2015-01-13 12:50:45
- 終了日時
- 2015-01-20 12:55:03
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
木の太い幹があります。伐ったので、長さ３０センチとか５０センチとか。それから、木の太い根も掘り出しま…
匿名質問者
1
-
今行きがかり上で中小企業を相手に民事訴訟の原告と被告で2件の裁判を抱えています。しかし何も深刻さはな…
asnaro_71
2
-
海外の習慣、民族的なことに詳しい方に質問です。 「玄界灘に生きた人々」という本で、「ダイコン官との旅…匿名質問者
-
【ナルコ】 私は医療に関して（当事者ではあるものの）素人です。 友人Aは「ナルコレプシー」的に、話して…
SE**.M1
-
外国から、王族が来ると、その人のパスポートは、ふつうのパスポートとは違う？ 外交官パスポートみたいな…匿名質問者