xlsファイルにSub LoadPictureEX(jpgFile As String) Sheet1.Image1.Picture = LoadPicture(jpgFile)End Subみたいなマクロ用意して、VBからwExcel.Run "LoadPictureEX", "C:\04.jpg"するとか・・・