为什么会弹出安全登录窗口？ #

这个问题本质是微软Office的安全验证机制在起作用：

• Office对直接从网络插入内容（比如图片）有严格的安全检查，当目标服务器的响应头包含NTLM或Windows身份验证要求时，Office会默认弹出登录窗口——哪怕这个站点是公共CDN（比如你用的rackcdn）。
• 第二个twimg的链接属于Twitter的官方CDN，已经被Office的安全列表标记为可信公共资源，所以不会触发验证请求。
• 不管用Pictures.Insert还是Shapes.AddPicture，都是调用Office的网络资源加载接口，所以都会遇到同样的问题。

解决方案：绕过直接网络插入，先下载图片到本地 #

最可靠的方法是先把图片下载到本地临时文件夹，再插入本地文件，这样完全避开Office的网络安全验证。下面是修改后的VBA代码：

Sub DrawPictureFromLocal()
    Dim imgUrl As String
    Dim tempPath As String
    Dim http As Object
    
    ' 目标图片URL
    imgUrl = "https://2ecffd01e1ab3e9383f0-07db7b9624bbdf022e3b5395236d5cf8.ssl.cf4.rackcdn.com/Product-190x190/0e72ef05-691d-4b3b-b978-a1bb9929e372.jpg"
    
    ' 设置临时文件路径（比如桌面的临时文件夹）
    tempPath = Environ("USERPROFILE") & "\Desktop\TempImages\"
    If Dir(tempPath, vbDirectory) = "" Then MkDir tempPath
    tempPath = tempPath & Replace(Replace(imgUrl, "https://", ""), "/", "_") & ".jpg"
    
    ' 下载图片到本地
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", imgUrl, False
    http.send
    
    If http.Status = 200 Then
        Dim fso As Object
        Set fso = CreateObject("ADODB.Stream")
        fso.Type = 1 ' 二进制模式
        fso.Open
        fso.Write http.responseBody
        fso.SaveToFile tempPath, 2 ' 覆盖已存在文件
        fso.Close
        
        ' 插入本地图片
        ActiveSheet.Pictures.Insert tempPath
        ' 可选：删除临时文件
        Kill tempPath
    Else
        MsgBox "图片下载失败，状态码：" & http.Status
    End If
    
    Set http = Nothing
    Set fso = Nothing
End Sub

其他可选方案 #

• 添加可信站点：打开Office的「信任中心」→「信任中心设置」→「受信任的站点」，把https://*.rackcdn.com添加进去。不过这个是全局设置，适合长期需要访问该站点的场景。
• 使用PowerQuery抓取：PowerQuery的网络资源加载机制和VBA不同，你可以用PowerQuery导入图片到Excel，再生成对比列表，它的安全提示更可控。

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