ﾃﾞｨｽﾌﾟﾚｲが故障してしまったため､ﾊﾟｿｺﾝ切替器を購入して､近年購入した二台目のﾊﾟｿｺﾝと連結してﾃﾞｨｽﾌﾟﾚｲを共用できるようにしました｡そのﾃﾞｨｽﾌﾟﾚｲが…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

ﾃﾞｨｽﾌﾟﾚｲが故障してしまったため､ﾊﾟｿｺﾝ切替器を購入して､近年購入した二台目のﾊﾟｿｺﾝと連結してﾃﾞｨｽﾌﾟﾚｲを共用できるようにしました｡
そのﾃﾞｨｽﾌﾟﾚｲが､1920×1080のため､壁紙を適用すると､横に引き延ばされて表示されてしまいます｡
検索して見つけた壁紙用ﾘｻｲｽﾞｿﾌﾄでは､かべHDが望む処理を行えるものの､複数のﾌｧｲﾙをまとめて処理することに対応していません｡
そこで､このｿﾌﾄに複数のﾌｧｲﾙをまとめて処理させるうまい方法をおしえてください｡

別ｿﾌﾄでまとめて処理できる方法をおしえていただいてもかまいませんが､その場合は以下の条件を必ず守ってください｡
･画像を引き伸ばしてﾘｻｲｽﾞするのではなく､ﾘｻｲｽﾞ後のｻｲｽﾞにしたとき､足りない空白部分を何らかの画像処理によって補完できること(かべHDのように､ﾎﾞｯｸｽ調節でｻｲﾄﾞをくもりｶﾞﾗｽで補完する手法をできることがﾍﾞｽﾄです)
･画像の上下を切り取る処理方法は論外､楯ｻｲｽﾞ1080以下の画像でも補完してﾘｻｲｽﾞできること
･複数のﾌｧｲﾙをまとめて処理できること
･設定方法などをできるだけ明記すること(ﾌｫﾄﾚﾀｯﾁｿﾌﾄなどのｿﾌﾄは特に)

●質問者: iichico
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀｲﾝﾀｰﾈｯﾄ
○ 状態 :ｷｬﾝｾﾙ
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● Mook

ImageMagic をｲﾝｽﾄｰﾙする｡
Windows であれば､下記の
ftp://ftp.kddlabs.co.jp/graphics/ImageMagick/binaries/
からどちらか(OSに合わせて)をﾀﾞｳﾝﾛｰﾄﾞし､ｲﾝｽﾄｰﾙ｡
ImageMagick-6.7.8-2-Q16-windows-dll.exe
ImageMagick-6.7.8-2-Q16-windows-x64-dll.exe

下記の convet.exe の部分を実際のｲﾝｽﾄｰﾙﾊﾟｽに書き換えて､resizer.vbs として保存する｡

'// ｽｸﾘﾌﾟﾄと同じﾌｫﾙﾀﾞに置いたJpg画像を変換し､｢変換画像｣ﾌｫﾙﾀﾞ下に保存する

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

cPath = FSO.GetAbsolutePathName(".")

If fso.FolderExists( cPath & "\変換画像" ) = False Then
 fso.CreateFolder cPath & "\変換画像"
End If

For Each f In fso.GetFolder(cPath).Files
 If fso.GetExtensionName( f.Path ) = "jpg" Then 
'★ 実際のｲﾝｽﾄｰﾙﾊﾟｽに変更
 objShell.Run """C:\Program Files\ImageMagick-6.7.8-Q16\convert.exe"" """ & f.Path & """ -resize 1920x1080 """ & Replace( f.Path, f.Name, "変換画像\" & f.Name ) & """" ,, true
 End If
Next

変換したいﾌｧｲﾙとｽｸﾘﾌﾟﾄを同じﾌｫﾙﾀﾞに置き､ﾀﾞﾌﾞﾙｸﾘｯｸで vbs を実行すると､実行ﾌｫﾙﾀﾞ下に変換画像というﾌｫﾙﾀﾞが作成され､その下に画像が保存されます｡

拡張子やｻｲｽﾞは実際に合わせて変更してください｡

iichicoさんのｺﾒﾝﾄ
ｺﾒﾝﾄに書いた理由から､壁紙のﾘｻｲｽﾞを行う必要はなくなりましたが､かべHDのように､中央に配置されたとき､余ってしまう両ｻｲﾄﾞを何らかのｴﾌｪｸﾄ処理をして補完することは､このｺﾝﾊﾞｰﾀｰでも可能でしょうか｡

TransFreeBSDさんのｺﾒﾝﾄ
>|| objShell.Run """C:\Program Files\ImageMagick-6.7.8-Q16\convert.exe"" """ & f.Path & """ -resize 1920x1080 """ & Replace( f.Path, f.Name, "変換画像\" & f.Name ) & """" ,, true ||< を >|| objShell.Run """C:\Program Files\ImageMagick-6.7.8-Q16\convert.exe"" """ & f.Path & """ -resize 1920x1080 ( +clone -resize 1920!x1080! -colorspace Gray -blur 0x30 ) +swap -gravity Center -composite """ & Replace( f.Path, f.Name, "変換画像\" & f.Name ) & """" ,, true ||< こんな感じかな？補完する背景が固定でよければ >|| objShell.Run """C:\Program Files\ImageMagick-6.7.8-Q16\convert.exe"" background.jpg """ & f.Path & """ -resize 1920x1080 -gravity Center -composite """ & Replace( f.Path, f.Name, "変換画像\" & f.Name ) & """" ,, true ||< かな？

iichicoさんのｺﾒﾝﾄ
すごいです､かべHDの処理と全く同じどころか､ｸﾞﾚｰｽｹｰﾙを指定できるとは｡これで十分使えるものになりました｡あと､拡張子を複数指定する方法ですが､ "jpg" "png" と指定すると､Thenが見つからないと怒られてしまいました｡どのようにすれば良いのでしょうか｡

iichicoさんのｺﾒﾝﾄ
拡張子毎に同じﾌｧｲﾙを作って使えということなのでしょうか｡おしえていただいた手法についてのﾎﾟｲﾝﾄは､ｱｶｳﾝﾄへ送信することでお送りいたします｡受け取られましたらｺﾒﾝﾄへお返事ください｡

Mookさんのｺﾒﾝﾄ
しばらく見れなかったので､ｺﾒﾝﾄ対応できずにすみません｡ﾎﾟｲﾝﾄﾒｯｾｰｼﾞいただきました｡ありがとうございます｡拡張子の対応は､ If fso.GetExtensionName( f.Path ) = "jpg" _ Or fso.GetExtensionName( f.Path ) = "bmp" _ Or fso.GetExtensionName( f.Path ) = "png" _ Or fso.GetExtensionName( f.Path ) = "gif" Then のように条件を Or でとればやれるかと思います｡

iichicoさんのｺﾒﾝﾄ
ご指摘の対応方法ですと､文字が正しくありません｡というｴﾗｰが発生します｡ VBSでは､複数条件の指定は難しいものなのでしょうか｡

iichicoさんのｺﾒﾝﾄ
書き込んですぐですが､実行できました｡ｴﾗｰ位置の表示が､13行目の1文字目を示していて､そこに[空白][空白]Ifとあったので､空白を削除して試してみたら実行できた次第です｡上のﾌﾟﾛｸﾞﾗﾑ表記からでは､ｲﾝﾃﾞﾝﾄが空白に変換されてしまい､それが行頭の余分な空白としてｴﾗｰを起こしていたのかもしれません｡ [行頭]If[空白]fso.GetExtensionName([空白]f.Path[空白])[空白]=[空白]"jpg"[空白]_[空白][改行] [行頭][空白]Or[空白]fso.GetExtensionName([空白]f.Path[空白])[空白]=[空白]"png"[空白]_[空白][改行] [行頭][空白]Or[空白]fso.GetExtensionName([空白]f.Path[空白])[空白]=[空白]"gif"[空白]Then

▽2 ● u_u-zzz

余ってしまう両ｻｲﾄﾞを何とかしたいということであれば､こんなやり方も…

ﾃﾞｽｸﾄｯﾌﾟを右ｸﾘｯｸ → 個人設定
この時､[ﾃﾞｽｸﾄｯﾌﾟの背景] には設定した壁紙がｻﾑﾈｲﾙ表示されていると思います｡

変更するのは､その隣の [ｳｨﾝﾄﾞｳの色] です｡
[ｳｨﾝﾄﾞｳの色とﾃﾞｻﾞｲﾝ] 画面が立ち上がったら､
指定する部分にﾃﾞｽｸﾄｯﾌﾟ､色1をｸﾘｯｸして壁紙に合うｶﾗｰを設定｡

私の場合は､1ヶ月のｶﾚﾝﾀﾞｰを壁紙にしているのですが､やはり余白ができてしまうので､壁紙の背景色とｳｨﾝﾄﾞｳの色を同化させています｡

壁紙に使われている画像の色を知りたければ､RGB値取得ｿﾌﾄですぐに分かります｡
http://freesoft-100.com/pasokon/rgb.html
画像処理ｿﾌﾄに､RGB値を表示する機能が搭載されているものもありますし…

高度なｴﾌｪｸﾄ処理というわけではありませんが､見栄えはそれなりに整うのではないでしょうか｡