Ich versuche, mit Base64 ein Bild in ein Blatt mit VBA einzufügen, aber ich kann nirgendwo Beispiele dafür finden, wie ich es richtig mache.

Ich habe ein String-Setup für das Bild, etwa:

vLogo = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAZoAAABfCAY"

Ich möchte nur Folgendes tun, aber anstatt nach einer Bilddatei zu suchen, speichern Sie das Bild in der VBA.

Sheets("Sheet1").Pictures.Insert (Application.ActiveWorkbook.Path & "\vLogo.png")

Ich habe mir sogar angeschaut, etwas zu tun wie:

' Write the image to file
Dim myFile As String
myFile = Application.ActiveWorkbook.Path & "\temp.png"
Open myFile For Output As #1
Write #1, vLogo
Close #1

' Insert the image
Sheets("Sheet1").Pictures.Insert (Application.ActiveWorkbook.Path & "\temp.png")

' Delete the temp file
Kill Application.ActiveWorkbook.Path & "\temp.png"

Aber ich kann nicht herausfinden, wie das Base64-codierte Bild in eine Datei geschrieben wird.