I got this code Rons' Excel page . . . which was very helpful (thanks Ron); but I would like to send a range from a sheet as a picture in the body

Sample
Range("A1:AA55").Select
Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
' I would nee to paste this range into the body of the message

Is this possible? ( the idea is not to send out as an excel file, excel is used to create the data and send it off as a picture show user dont tamper with it)
-----------------------------------------------------------------
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
'Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)


With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Subject goes here"
.Body = "Your Message goes here"
.Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Thank you in advance,