使用VBA从URL加载图片遇类型不匹配编译错误求助

编译错误直接原因 #

你遇到的“类型不匹配：数组或用户定义类型预期”错误，源自ByteArrayToPicture函数的参数类型不匹配：

• 函数定义要求参数是ByRef imgData() As Byte（字节数组），但调用时传入的imgData是Variant类型（尽管http.responseBody本质是字节数组，但存储在Variant变量中），导致类型校验失败。

代码中的其他问题 #

除了编译错误，你的代码还有几处逻辑错误：

1. 拼写错误：stream.Posisjon应为stream.Position，这会导致运行时错误。
2. 图片转换逻辑错误：Set pic = stream.read完全无效，ADODB.Stream的Read方法返回字节数组，无法直接赋值给StdPicture对象，需要通过Windows API完成字节流到IPictureDisp的转换。
3. 不符合需求的实现方式：你当前的代码是将图片字节转换为嵌入对象，不符合“图片不嵌入文件，打开后下载”的需求。

简化修复方案（匹配你的需求） #

不需要复杂的字节流转换，直接利用Shapes.AddPicture方法通过URL插入链接式图片，图片不会嵌入文件，打开时自动从URL加载：

Sub InsertLinkedImageFromURL()
    Dim imgURL As String
    Dim imgShape As Shape
    
    ' 图片URL
    imgURL = "https://asset.productmarketingcloud.com/api/assetstorage/67_bac06034-d536-42d1-8fdb-2bbdd8d2ce10/NGThumb"
    
    ' 插入链接式图片：LinkToFile:=msoTrue 表示链接到原URL，SaveWithDocument:=msoFalse 表示不嵌入文件
    Set imgShape = ActiveSheet.Shapes.AddPicture( _
        Filename:=imgURL, _
        LinkToFile:=msoTrue, _
        SaveWithDocument:=msoFalse, _
        Left:=100, Top:=100, Width:=-1, Height:=-1)
End Sub

原代码的编译错误修复（如果需要保留字节流转换逻辑） #

如果你坚持要通过字节流转换的方式实现，需要修正以下几点：

1. 将DownloadPicture中的imgData声明为Byte()数组：

Function DownloadPicture(URL As String) As IPictureDisp
    Dim http As Object
    Dim imgData() As Byte ' 改为Byte()数组
    
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", URL, False
    http.Send
    
    imgData = http.responseBody
    Set DownloadPicture = ByteArrayToPicture(imgData)
End Function

2. 修正ByteArrayToPicture函数中的拼写错误，并通过API实现图片转换（需要添加API声明）：

' 在模块顶部添加API声明
Private Declare Function OleLoadPicture Lib "oleaut32.dll" ( _
    ByVal lpStream As IUnknown, _
    ByVal lSize As Long, _
    ByVal fRunmode As Long, _
    ByRef riid As GUID, _
    ByRef ppvObj As IPictureDisp) As Long

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Function ByteArrayToPicture(imgData() As Byte) As IPictureDisp
    Dim stream As Object
    Dim picGuid As GUID
    Dim hResult As Long
    
    Set stream = CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = 1 ' 二进制模式
    stream.Write imgData
    stream.Position = 0
    
    ' 设置IPictureDisp的GUID
    With picGuid
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
    
    ' 通过API加载图片
    hResult = OleLoadPicture(stream, UBound(imgData) + 1, 0, picGuid, ByteArrayToPicture)
    
    stream.Close
End Function

内容的提问来源于stack exchange，提问作者Einar Husabø