copy excel cells into body of email as a picture.

The problem goes thus :
. i have an excel workbook which contains some values. I need to copy these into an outlook email object as a 'picture'. i cant paste this as a table or as text values.

Can someone help me with this.

The code i have till now gives me a blank email. Unable to get anything in the email body.

Dim Sh As Shape
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
DP_template_path = "\\wn7x64-75kc32s\emea_revgen\Faraaz\Daily Pulse\Daily EMEA_Pulse_Report_Template_Q3FY13.xlsx"

Workbooks.Open Filename:=DP_template_path
Workbooks("Daily EMEA_Pulse_Report_Template_Q3FY13.xlsx").Worksheets("EMEA WTD & Overall").Select
Set Sh = Worksheets("EMEA WTD & Overall").Shapes(1)
Sh.CopyPicture Appearance:=xlScreen, Format:=xlPicture


On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
If oOutlook Is Nothing Then Set oOutlook = CreateObject("Outlook.Application")

Set oEmailItem = oOutlook.CreateItem(olMailItem)

With oEmailItem
.Subject = "Daily Pulse Template"
.To = "[email protected]"
.Body = Selection.Paste
.Display
End With


Regards,
Faraaz