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

查ＥＸＣＴＬ的ＶＢＡ帮助文件

应用于 Hyperlinks 对象的 Add 方法。
向指定的区域或图形添加超链接。返回 Hyperlink 对象。
expression.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
expression      必需。该表达式返回一个 Hyperlinks 对象。
Anchor      Object 类型，必需。超链接的位置。可为 Range 对象或 Shape 对象。
Address      String 类型，必需。超链接的地址。
SubAddress      Variant 类型，可选。超链接的子地址。
ScreenTip      Variant 类型，可选。当鼠标指针停留在超链接上时所显示的屏幕提示。
TextToDisplay      Variant 类型，可选。要显示的超链接的文本。

应用于 Hyperlinks 对象示例。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
本示例向单元格 A5 添加超链接。
With Worksheets(1)
    .Hyperlinks.Add Anchor:=.Range("a5"), _
        Address:="http://example., _
        ScreenTip:="Microsoft Web Site", _
        TextToDisplay:="Microsoft"
End With

转换为ＶＦＰ代码：
With .Worksheets(1)
    .Hyperlinks.Add(.Range("a5"), "http://example., , "Microsoft Web Site", "Microsoft")
EndWith

=================================================
本示例向单元格 A5 中添加一个电子邮件超链接。

With Worksheets(1)
    .Hyperlinks.Add Anchor:=.Range("a5"), _
        Address:="mailto:someone@, _
        ScreenTip:="Write us today", _
        TextToDisplay:="Support"
End With

转换为ＶＦＰ代码：               
With .Worksheets(1)
    .Hyperlinks.Add(.Range("a5"), "mailto:someone@, ,"Write us today", "Support")
EndWith

[此贴子已经被作者于2018-12-4 22:21编辑过]

学习啦，谢谢！

您好，谢谢您的指教，我还是想将图片设置成超链接本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")
请您帮我看看！