FOLDER1にA1.JPG A2.JPG が格納されている状態で

マクロを入れたエクセルファイルとすべて 同じフォルダに入れて 実行してください。

Sub Macro1()
Workbooks.Open Filename:="A.xls"
ActiveSheet.Pictures.Insert("A1.JPG").Select
ActiveWorkbook.SaveAs Filename:="A1.xls"
ActiveWorkbook.Close

Workbooks.Open Filename:="A.xls"
ActiveSheet.Pictures.Insert("A2.JPG").Select
ActiveWorkbook.SaveAs Filename:="A2.xls"
ActiveWorkbook.Close

End Sub