Convert image (jpg) to base64 in Excel VBA?

by

Heres a function. Can’t remember where I got it from.

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

More Related Contents:

  1. VBA pull XML data to Excel
  2. How to parse XML using vba
  3. html parsing of cricinfo scorecards
  4. How do I base64 encode a string efficiently using Excel VBA?
  5. Obtain attribute names from XML using VBA
  6. XML parse VBA excel (function trip, & MSXML2.DOMDocument)
  7. Looking for a clear description of Excel’s .xlsx XML format [closed]
  8. VBA Output to file using UTF-16
  9. What’s the best way to export UTF8 data into Excel?
  10. Format Cell Contents
  11. Excel formula checklist in employees
  12. How do I put double quotes in a string in vba?
  13. How can I URL encode a string in Excel VBA?
  14. xmllint failing to properly query with xpath
  15. What is the correct way to represent null XML elements?
  16. Download attachment from Outlook and Open in Excel
  17. What is the most efficient/quickest way to loop through rows in VBA (excel)?
  18. Embed picture in outlook mail body excel vba
  19. 2 ways for “ClearContents” on VBA Excel, but 1 work fine. Why? [duplicate]
  20. How to replace “single quote” to “double single quote” in XSLT
  21. How to import XML with nested nodes (parent/child relationships) into Access?
  22. Does XML care about the order of elements?
  23. Excel error 1004 “Unable to get …. property of WorksheetFunction class” appearing inconsistently
  24. What is the difference between ‘or’ and ‘|’ when programming in xslt?
  25. How can I install/use “Scripting.FileSystemObject” in Excel 2010 for MAC?
  26. Get Timezone Information in VBA (Excel)
  27. “Non Zero Exit Status” R 3.0.1 ‘XML’ and ‘RCurl’
  28. XML tagname starting with number is not working
  29. Cvc-elt.1: Cannot Find The Declaration Of Element ‘soap:Envelope’
  30. How to fix a VBA “type mismatch” error after switching to 64-bit Excel

Leave a Comment