'引入API

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'Public Declare Function DeleteUrlCacheEntry Lib "wininet" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

'下载函数

Function getImg(url As String, Optional fn As String = "") As String

    Dim localFilename As String, lngRetVal As Long

    If fn = "" Then fn = Rnd() *  & ".jpg"

    localFilename = ThisWorkbook.Path & Application.PathSeparator & fn

    lngRetVal = URLDownloadToFile(, url, localFilename, , )

    '    Debug.Print lngRetVal

    If lngRetVal =  Then

    '        DeleteUrlCacheEntry url    '清除缓存

    getImg = localFilename

    Else

    getImg = ""

    End If

End Function

'按钮宏

Sub getImg2()

    Dim cel

    With Application.COMAddIns("esclient10.connect").Object

        For Each cel In Range("_picLink")

            If cel.Value <> "" Then

                Cells(cel.Row, ).Select

                .AddPicture getImg(cel.Value), , cel.Row,         '插入图片到sheet1,链接行,第13列

            End If

        Next

    End With

End Sub