excel怎么快捷加入本地图片的超链接？

excel 2010 win7 可以用 

Sub 获取打开窗下选中文件的完全路径和名称并为路径添加超链接()

    Dim i As Integer, j&, l, m, k, n

    Application.ScreenUpdating = False

  With Application.FileDialog(msoFileDialogOpen)

  'msoFileDialogOpen表示允许打开一个文件

   .AllowMultiSelect = True '允许多选

   .Show '打开文件对话框

   For i = 1 To .SelectedItems.Count

   'SelectedItems.Count属性获取一个filedialogSelectedItems集合

   '包含对象的 show方法,文件路径名称

       l = .SelectedItems(i)

       m = Len(l) - Len(WorksheetFunction.Substitute(l, "\", ""))

       k = WorksheetFunction.Substitute(l, "\", "/", m)

       n = WorksheetFunction.Find("/", k)

       Cells(i, 1) = Mid(l, n + 1, Len(l))

        '仅文件名称

       'Cells(i, 1) = .SelectedItems(i)

       '文件完全路径

       ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=l

   '添加超链接

  Next i

  End With

End Sub

设置一下自动添加