ｸﾘｯﾌﾟﾎﾞｰﾄﾞ上の画像をImageMagick(VBS)を使用して保存するには… 以前も質問させていただきましたが､ﾌﾟﾘﾝﾄｽｸﾘｰﾝで画像をｸﾘｯﾌﾟﾎﾞｰﾄﾞ上に保存してﾄﾘﾐ…

ｸﾘｯﾌﾟﾎﾞｰﾄﾞ上の画像をImageMagick(VBS)を使用して保存するには…
以前も質問させていただきましたが､
ﾌﾟﾘﾝﾄｽｸﾘｰﾝで画像をｸﾘｯﾌﾟﾎﾞｰﾄﾞ上に保存してﾄﾘﾐﾝｸﾞを行った後に指定したﾌｧｲﾙ名で保存したいです｡(ﾌｧｲﾙ名は固定(ﾌｧｲﾙは1つ))

この場合のVBSのｺｰﾄﾞはどうなるのでしょうか？

最終的にMakeExeを使用して1つのﾌｧｲﾙにしたいので､全てVBSでｺｰﾃﾞｨﾝｸﾞしたいです｡
※現在ｸﾘｯﾌﾟﾎﾞｰﾄﾞ上に保存したい画像を読み込み､ImageMagickのｵﾌﾞｼﾞｪｸﾄを生成するところまではできています｡

以下がこれから実現したいことです｡
1．生成したｵﾌﾞｼﾞｪｸﾄを利用してｸﾘｯﾌﾟﾎﾞｰﾄﾞ上の画像を読み込む
2．読み込んだ画像をﾄﾘﾐﾝｸﾞする(座標はわかっています)
3．ﾄﾘﾐﾝｸﾞまで完了したﾃﾞｰﾀを指定ﾌｧｲﾙ名(ﾌｧｲﾙ形式はJPG)で保存

この3点を実現したいです｡
※作成したBatを読み込んで動作させることはできています｡

作成済みのｺｰﾄﾞは以下になります｡
※最下段のﾊﾞｯﾁﾌｧｲﾙを実行する部分が変化すると思います｡
ご教示よろしくお願いします｡

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")

動作確認はしていませんが､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 )

これで良いと思うのですが｡
ｺﾏﾝﾄﾞﾗｲﾝとそんなに変わらないらしいです｡