VBA这样设置EXCEL图片超链接，VFP程序如何书写?
有哪位朋友可以告诉我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编辑过]
