这个Run-time error '1004'我之前处理网络图片插入时也碰到过，多半是安全限制、方法兼容性或者网络配置的问题，咱们一步步来解决：

1. 先确认图片URL的可用性 #

先手动在浏览器打开你提供的URL http://cache.lego.com/media/bricks/5/1/4667591.jpg，确认图片能正常加载。如果浏览器能打开但Excel不行，大概率是Excel的安全设置在搞鬼。

2. 调整Excel的外部内容信任设置 #

Excel默认会阻止从互联网加载外部内容，这是最常见的触发原因：

• 打开Excel，点击「文件」>「选项」>「信任中心」>「信任中心设置」
• 选择「外部内容」，在「图片和剪贴画」区域勾选「允许来自互联网的图片内容」
• 重启Excel后再测试你的代码

3. 改用更稳定的Shapes.AddPicture方法替代Picture.Insert #

Picture.Insert方法对网络图片的兼容性较差，推荐使用Shapes.AddPicture，它的参数更明确，出错概率更低。试试这段代码：

Sub InsertWebImage()
    Dim imgURL As String
    Dim targetRange As Range
    Dim insertedImg As Shape
    
    ' 替换成你的图片URL和目标单元格
    imgURL = "http://cache.lego.com/media/bricks/5/1/4667591.jpg"
    Set targetRange = ThisWorkbook.Worksheets("Sheet1").Range("A1") ' 改成你的工作表和单元格
    
    ' 插入图片并绑定到目标单元格
    Set insertedImg = targetRange.Worksheet.Shapes.AddPicture( _
        Filename:=imgURL, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=targetRange.Left, _
        Top:=targetRange.Top, _
        Width:=targetRange.Width, _
        Height:=targetRange.Height)
    
    ' 可选设置：让图片随单元格移动和保持比例
    insertedImg.Placement = xlMoveAndSize
    insertedImg.LockAspectRatio = msoTrue ' 避免图片被拉伸变形
End Sub

代码说明： #

• LinkToFile:=msoFalse：不链接到原图片URL，将图片嵌入Excel文件
• SaveWithDocument:=msoTrue：确保图片随Excel文件一起保存
• Placement:=xlMoveAndSize：让图片跟着目标单元格移动和调整大小

4. 检查工作表保护状态 #

如果你的目标工作表被保护了，插入形状（图片属于形状对象）会触发1004错误。需要：

• 取消工作表保护（右键工作表标签>「取消保护工作表」，有密码的话输入密码）
• 或者在保护工作表时勾选「允许用户编辑对象」选项

5. 排查网络代理问题 #

如果你在公司网络环境下，Excel依赖IE的网络配置，可能无法直接访问外部URL：

• 打开IE，设置好正确的代理服务器
• 或者确认你的网络能直接访问该图片地址，没有防火墙或路由限制

内容的提问来源于stack exchange，提问作者J. Snow