请教高手：vfp能不能判断EXCEL的单元格有图片，并更新到另一个表的一个单元格？

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
上报表 = cDefPath + "马头所上报表.xlsx"
汇总表 = cDefPath + "汇总表.xlsx"
oExcel = CREATEOBJECT("Excel.Application")
she1 = oExcel.WorkBooks.Open(上报表).Sheets("Sheet1")
she2 = oExcel.WorkBooks.Open(汇总表).Sheets("Sheet99")
IF picCopy(she1,"$C$2")
    picPaste(she2,"$C$20")
ENDIF
oExcel.Visible = 1
*oExcel.WorkBooks.Close
*oExcel.Quit
CLEAR ALL
RETURN

FUNCTION picCopy(she,rg)
    FOR EACH sp IN she.Shapes
        IF sp.TopLeftCell.Address==rg
            sp.CopyPicture
            RETURN .t.
        ENDIF
    ENDFOR
    RETURN .f.
ENDFUNC

FUNCTION picPaste(she,rg)
    FOR EACH sp IN she.Shapes
        IF sp.TopLeftCell.Address==rg
            sp.Delete
        ENDIF
    ENDFOR
    she.Range(rg).Select
    she.Paste
ENDFUNC