VBA超链接程序

Option Explicit
Sub AutoGenerateHyperlinks()
对当前表的所有sheet做超链接程序
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.CountSet
oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub

对图片设置超链接程序
Dim Sheet1 As Worksheet
Dim a As Integer
Dim i As Integer
Dim n As String
a = [b65536].End(xlUp).Row
Set Sheet1 = Worksheets("Sheet5")
For i = 1 To a
n = "D:\法务\ 北京怡生乐居信息服务有限公司" & Cells(i, 2).Value & ".png"
Sheet1.Hyperlinks.Add Anchor:=Cells(i, 3), Address:=n, _ TextToDisplay:=Cells(i, 2).Value
Next