Richtext mit Formatierung in Excel einfügen

[Reinhardtinho]

Hallo allerseits,

Bei meinem Programm kann man Daten in Excel schreiben (Zahlen, Formeln, usw).
Nun sollen auch Textbausteine in Excel eingefügt werden.
Ich habe diese Textbausteine in einem RichEdit vom Typen TJvRichEdit.
Nun möchte ich den Richtext mit Formatierungen und Grafiken in Excel einfügen.
Zugreifen tue ich mit Delphi 5 und TExcelApplication über die COM-Schnittstelle.

Ich habe den Richtext in die Zwischenablage kopiert und in die Excelzelle eingefügt, allerdings gehen dabei die Formatierung verloren und Bilder werden auch nicht angezeigt.

Delphi-Quellcode:

var
  WS : _WorkSheet;
begin
  ...

  Form_TmpRichEdit.JvRichEdit1.SelectAll;
  Form_TmpRichEdit.JvRichEdit1.CopyToClipboard;

  WS.Cells.Item[2,2].Select;
  WS.Paste(EmptyParam, EmptyParam, LCID);

  ...
end;

Hat jemand eine Idee, wie man den Richtext mit Formatierung in Excel einfügen kann und ist bereit diese mir mitzuteilen?

Danke.

MFG
Lorenz