CODEWITHSUNDEEP
arraysexcelvbaimageshapes
Asdf
Asdf

Reputation: 298

create a picture shape from an array

I am trying to find an example, or documentation, on creating a picture (floating shape object) inside the Excel sheet. The source is supposed to be a numeric bitmap data, stored in a VBA array acquired using external I/O libraries. Using Excel cells as an intermediary storage is possible, but not desired, since the RGB bitmap data is expected to be huge. The task itself seems to be extremely simple in matlab-like environments, or python. But I just have no Idea how to make it in Excel and VBA without importing an independent image file from the file system.

Upvotes: 1

Views: 607

Answers (1)

Dan
Dan

Reputation: 56

In terms of storing the file, how huge is 'huge'? If you convert the image into Base64, it'll be a fairly trivial task to split it up amongst the cells and then reconstitute it when converting it into an image.

Alternatively, you can store the Base64 string in a standard module - I'm currently doing much the same thing, but my image only clocks in at 100kb (better to save it as a PNG rather than BMP).

In terms of converting the Base64 string to an image, the Windows Image Acquisition COM object will convert a byte array into a stdPicture image type (and further to my point above, it will also accept PNG files...]. The following function accepts a Base64 string, converts it into a byte array, and returns an stdPicture object:

Function Base64toStdPicture(ByVal Base64Code As String) As StdPicture
    
    Dim ImgVector As Object
    Dim Node      As Object
        
    Set ImgVector = CreateObject("WIA.Vector")
    Set Node = CreateObject("Msxml2.DOMDocument.3.0").createElement("base64")
        
    Node.DataType = "bin.base64"
    Node.Text = Base64Code
    ImgVector.BinaryData = Node.nodeTypedValue
    Set Base64toStdPicture = ImgVector.BinaryData.Picture
        
    Set Node = Nothing
    Set ImgVector = Nothing

End Function

From that point, you can out it in an image control, or copy it to / from the clipboard, etc.

Upvotes: 1

Related Questions