EXCEL图片包含URL 如何读出？

“如何读出此EXCEL表内图片所含的URL？”
此EXCEL表呢？

表里有图片和文字 都有URL，如何取得这些URL

cPath = "C:\TEMP\申购单\"
cXLS = cPath + "申购单.xlsx"
oExcel = CREATEOBJECT("Excel.Application")
oExcel.WorkBooks.Open(cXLS)
FOR EACH oHL IN oExcel.ActiveSheet.Hyperlinks
    ? oHL.Address
ENDFOR
oExcel.WorkBooks.Close
oExcel.Quit

谢谢吹版！学习啦。

版主，当之无愧。实在是高。百度搜烂了也没解决。