VBA：将字节数组转换为图像而不将其临时保存[重复]

Question

我有一个从 base64 解码的字节数组（我需要这个，所以我可以通过 XML 文件发送这些字节数组）。 现在，我必须使用字节数组“重构”图像。我搜索了类似的东西，找到了 VB 代码的解决方案，但它与 VBA 不兼容。

我的代码如下所示：

encodedImage = objXML.FirstChild.ChildNodes.Item(1).Text 'the encoded image in base64

' get array of bytes
Dim byteArr() As Byte
byteArr = DecodeBase64(encodedImage) 'this function decodes from base64 to bytes array

 Dim img As Image

字节数组看起来不错，因为我已经将它与我现在要重构的原始图像中的 imageData 进行了比较。

有没有办法在不临时保存图像的情况下进行这种转换？ 在“重组”图像后，我需要将其上传到 word 文档中。

Answer 1

我可能错了，但我认为 System.IO.File 库中有一个用于 .NET 框架的函数，它可以执行您正在查找的操作并写入文件路径。我认为它称为WriteAllBytes？不过，您可能需要导入库。希望这可以帮助。