Hallo zusammen,
ich möchte ein Bild, welches sich in einem Richtext-Feld befindet, in eine Zelle eines Excel-Sheets exportieren. Das Problem, was ich hierbei wohl habe, ist, dass das Bild als MIME in dem Dokument gespeichert ist. Das habe ich mit folgenden Code konvertiert:
' Import JPEG Image ins Feld BMBild
Set bild=doc.CreateMIMEEntity("BMBild")
Set stream=session.CreateStream()
If (stream.open("C:\ttt\" & fileName,"binary")) Then
If (stream.Bytes>0) Then
bild.setContentFromBytes stream, "image/" & endung, ENC_IDENTITY_BINARY
End If
End If
Schaff ich es irgendwie, dieses Bild in das Excel-sheet zu exportieren? ExportFile funktioniert hier nicht, wohl wegen des MIME-Typs. Habt ihr vielleicht eine Idee?
Danke und Gruß
Katja