使用VBA将excel文件中的图片导出为jpg格式

I have an Excel file which includes pictures in column B and I want like to export them into several files as .jpg (or any other picture file format). The name of the file should be generated from text in column A. I tried following VBA macro: I have an Excel file which includes pictures in