EXCEL 图片链接显示为图片

="<table><img src="&C2&" height=190 width=100></table>"

提取超链接地址：

    Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
    End Sub