VBA 下载图片到word

如果你需要到网上下载图片到Word文档,下面的代码可以帮到你

首先添加引用 "Microsoft WinHTTP Services,vesion

 

Sub htmlCopyLoadPicture()

    Dim WinHttpReg As WinHttp.WinHttpRequest
 
   ' Dim myArr() As String

    'Dim i As Long
     Dim d() As Byte
    Set WinHttpReg = New WinHttp.WinHttpRequest
    WinHttpReg.Option(WinHttpRequestOption_EnableRedirects) = 3
    WinHttpReg.Open "GET", "http://www.microsoft.com/library/homepage/images/ms-banner.gif", False
    WinHttpReg.Send
   
    Open "temp.gif" For Binary As #1
    d() = WinHttpReg.ResponseBody
    Put #1, 1, d()
    Close
   
   
   
    Selection.InlineShapes.AddPicture FileName:= _
        "temp.gif" _
        , LinkToFile:=False, SaveWithDocument:=True