VBA 下载图片到word

最新推荐文章于 2024-08-06 11:07:06 发布

to_gengqing

最新推荐文章于 2024-08-06 11:07:06 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/to_gengqing/article/details/5943523

本文介绍了一段VBA代码，该代码能够从互联网上下载指定URL的图片，并将其保存到本地磁盘，随后将图片插入到Word文档中。通过使用Microsoft WinHTTP Services组件，实现了网页内容的获取及图片数据的读取。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如果你需要到网上下载图片到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