VBAでwebの画像を名前を付けて保存する方法

下記でエクセルのシートには保存はできましたが直接画像をjpegでファイルとして保存するにはどうすれば良いでしょうか？
マクロの記録では無理でした・・・
どなたかご存知の方よろしくお願いいたします。
Sub test()
Dim IMG As Variant
Dim wbooks As Workbook
Dim Filename As String
Set wbooks = Workbooks.Add
Filename = "C:\テスト\" & Format(Date - 1, "yyyymmdd") & ".xlsx"
wbooks.SaveAs (Filename)
IMG = "http://t-success.co.jp/image.jpg"
With ActiveSheet.Pictures.Insert(IMG)
.Top = Range("A1").Top
.Left = Range("A1").Left
End With
wbooks.Save
End Sub

No.1 ベストアンサー 回答者： pidum 回答日時： 2014/03/20 23:06

知恵袋に回答がありました。

ご参考まで。
下記では画像ファイルがpngとなっていますのでjpgに変更する事と、JRLアドレスの変更で可能だと思います。

http://detail.chiebukuro.yahoo.co.jp/qa/question …

この回答へのお礼

お忙しいところほんとうにありがとうございます。
試してみます！！
お礼遅くなり申し訳ありません

お礼日時：2014/04/03 14:33