Convertir l'image (jpg) en base64 dans Excel VBA?

Question

Je dois convertir une image dans Excel (ou via VBA) à base64 (à la fin, je vais faire une sortie XML).

Comment est-ce que je peux faire ceci? Ai-je besoin de faire une référence à DOM?

Ive été la lecture this question mais il ne fonctionne que pour les chaînes de texte non images ...

Quelqu'un at-il un code que je peux voir?

Answer 1

S'il vous plaît, jetez un coup d'oeil ici: Base64 Encode & Decode Files

EDIT: Jetez un coup d'oeil sur http://pastebin.com/f2a199d30

Answer 2

Heres une fonction. Je ne me souviens pas d'où je l'ai eu.

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