下記でエクセルのシートには保存はできましたが直接画像を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