VBA to paste as picture in Outlook from Excel

[tbrynard01]

I use this code to send an email from Excel but it is distorting the appearance of the range I'm copying, how would I change it to past it in Outlook as a picture?

Any help would be appreciated.

Thanks
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)

With newEmail
.To = Sheet8.Range("B21").Text
.CC = Sheet8.Range("G21").Text
.BCC = ""
.Subject = "MHR Request"
.Body = ""
.display

Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor

Sheet8.Range("B2:E20").Copy

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.display
.Send
Set pageEditor = Nothing
End With

Set newEmail = Nothing
Set outlook = Nothing

 

[Worf]

If the code in this page still does not do what you want, then we can paste as a picture:

Mail Range/Selection in the body of the mail

 

[tbrynard01]

Thank you