有哪位朋友可以告诉我VBA这样设置EXCEL图片超链接，VFP程序如何书写?
VBA:Sheet1.Hyperlinks.Add Sheet1.Shapes(1), "", "Sheet3!A1"
VFP:???

您好，谢谢您的指教，我还是想将图片设置成超链接本Excel文档的某页位置，通过Excel设置可以，但通过VFP程序如何弄啊？我尝试多种写法都没成功，请您指教，谢谢!

xlsheet.cells(1,bgls).Select
oExcel.activesheet.PictureS.Insert(Thisform.jmbz.Picture).Select
oExcel.Selection.shaperange.lockaspectratio =.F.
oExcel.activesheet.PictureS(1).Left=h_zcd*6.25
oExcel.activesheet.PictureS(1).Top=2
oExcel.activesheet.PictureS(1).Height=18
oExcel.activesheet.PictureS(1).Width=23
xbm=oExcel.activesheet.Name
oExcel.activesheet.Hyperlinks.Add(Sheets(["]+xbm+["]).PictureS(1),,"报表目录!B3")
请您帮我看看！