Конвертировать изображение (jpg) в base64 в Excel VBA?

Question

Мне нужно преобразовать изображение в Excel (или через VBA) в base64 (в конце я сделаю вывод XML).

Как я могу это сделать? Нужно ли ссылаться на DOM?

Я читал этот вопрос , но он работает только для текстовых строк, а не изображений ...

У кого-нибудь есть какой-нибудь код, который я вижу?

Answer 1

Вот функция. Не могу вспомнить, откуда я это взял.

Public Function EncodeFile(strPicPath As String) As String
    Const adTypeBinary = 1          ' Binary file is encoded

    ' Variables for encoding
    Dim objXML
    Dim objDocElem

    ' Variable for reading binary picture
    Dim objStream

    ' Open data stream from picture
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.LoadFromFile (strPicPath)

    ' Create XML Document object and root node
    ' that will contain the data
    Set objXML = CreateObject("MSXml2.DOMDocument")
    Set objDocElem = objXML.createElement("Base64Data")
    objDocElem.dataType = "bin.base64"

    ' Set binary value
    objDocElem.nodeTypedValue = objStream.Read()

    ' Get base64 value
    EncodeFile = objDocElem.Text

    ' Clean all
    Set objXML = Nothing
    Set objDocElem = Nothing
    Set objStream = Nothing

End Function