GetObject fra Excel til Notes

Hej Eksperter.

Jeg sidder med et lille problem som nok er nemt at løse. Jeg har engang lavet en kode hvor jeg klipper en den ud som et DataObject og sætter det ind som tekst i Notes.

Nu er jeg desværre kommer dertil hvor dette ikke længere er tilstrækkeligt. Jeg bliver nødt til at omdanne det til noget andet, da Dataobject'et ikke bevarer formateringen.

Koden består af følgende dele i rækkefølge, jeg har kun medtaget delene da koden er 400 linier lang.

Dim ClipBoard As DataObject

Set ClipBoard = New DataObject
    ClipBoard.GetFromClipboard
    SaveIt = True

MailDoc.body = ClipBoard.GetObject(1)

Er der nogle der kan finde en anden løsning, så jeg får formateringen med. ( tekstfarver/gitterliner osv.)

Glæder mig til at hører fra jer.