Es ist eigentlich eine direkte Hex-Darstellung des binären .png-Bildes, nicht einmal Base64-kodiert. Wenn Sie also eine Datei mit dem Namen mypng.png erstellen, bei der das erste Byte 0x89 ist, das zweite 0x50 usw., wobei die Zeilenumbrüche ignoriert werden, sollten Sie das Bild öffnen und anzeigen können. (In diesem Fall ist es ein Kritzeln).
Wie es konvertiert wird, hängt davon ab.
Um Ihnen einen Startpunkt zu geben, da Sie über Word verfügen, wenn Sie die Datei in Word als Textdatei öffnen (damit Sie statt des Bildes den RTF-Code sehen können), müssen Sie möglicherweise die Option "Konvertierungen beim Öffnen bestätigen" festlegen Option, wählen Sie die Datenbytes aus und führen Sie den folgenden Code aus (Sie müssen den Datei- / Pfadnamen ändern). Sie sollten in der Lage sein, die Ausgabe .png zu öffnen
Sub saveSelectionAsBinary() Const pngpath As String = "c:\a\mypng.png" Dim i As Long Dim s As String * 1 Dim t As String Kill pngpath Open pngpath For Binary As 1 t = Selection.Text i = 1 Do While i <= Len(t) If Mid(t, i, 1) = vbCr Then Debug.Print "cr" i = i + 1 Else s = Chr(Val("&H" & Mid(t, i, 2))) Put #1,, s i = i + 2 End If Loop Close #1 End Sub
Ich nehme an, es ist offensichtlich, dass "pngblip" uns sagt, dass dies ein Bild im .png-Format sein soll, aber es können andere Bildtypen in einem RTF-Bild enthalten sein, und diese sind nicht unbedingt auf diese Weise kodiert.