使用Activesheet.Shapes.AddPicture插入指定URL图片报错

可能的原因 #

• 该URL对应的图片服务存在防盗链机制：很多图片托管平台会校验请求的Referer头，VBA的Shapes.AddPicture发起的请求未携带合法的Referer信息，被服务器拦截。
• 目标URL并非直接指向图片文件：这个链接可能是图片预览页或跳转链接，返回的是HTML页面而非jpg/png等二进制图片资源。
• 图片资源需要身份验证：部分内部或受限图片要求携带Cookie、Token等登录态信息，VBA直接请求无法通过验证。

解决方法 #

方法1：先下载图片到本地再插入 #

通过VBA将图片下载到临时目录，再插入本地文件，绕开直接请求的限制：

Sub InsertPictureFromURL()
    Dim tempPath As String
    Dim imgURL As String
    Dim httpObj As Object
    
    imgURL = "https://mmecimage.cn/p/wxa5a434c1a89e7ebc/HGeDuiyxcqwFUcNsLHieLWLngEO5BJAbsWmNO4ieCyA"
    ' 生成临时文件路径
    tempPath = Environ("TEMP") & "\temp_img_" & Format(Now, "YYYYMMDDHHMMSS") & ".png"
    
    ' 发起HTTP请求下载图片
    Set httpObj = CreateObject("MSXML2.XMLHTTP")
    httpObj.Open "GET", imgURL, False
    ' 添加Referer头模拟浏览器请求（可根据实际情况调整）
    httpObj.setRequestHeader "Referer", "https://mmecimage.cn/"
    httpObj.send
    
    If httpObj.Status = 200 Then
        Dim fs As Object
        Set fs = CreateObject("Scripting.FileSystemObject")
        Dim ts As Object
        Set ts = fs.CreateTextFile(tempPath, True)
        ts.Write httpObj.responseBody
        ts.Close
        
        ' 插入本地图片到工作表
        Sheets(1).Shapes.AddPicture tempPath, msoFalse, msoTrue, 100, 100, 500, 600
        
        ' 清理临时文件
        Kill tempPath
    Else
        MsgBox "图片下载失败，服务器状态码：" & httpObj.Status
    End If
End Sub

方法2：获取真实的图片资源链接 #

• 将目标URL复制到浏览器，确认是否能直接显示图片。如果打开后是跳转页面或需要登录，说明这不是直接的图片地址。
• 打开浏览器开发者工具（F12），切换到「网络」标签，刷新页面后找到后缀为.jpg/.png/.webp的图片请求，复制其真实URL替换到VBA代码中。

方法3：调整HTTP请求头 #

如果是防盗链导致的失败，在请求时添加符合要求的Referer或User-Agent头，模拟正常浏览器的请求行为，示例代码已包含Referer头的设置，可根据实际情况修改值。

内容的提问来源于stack exchange，提问作者fan mice