Вставка рисунка

[КТатьяна]

Добрый день
Помогите, пожалуйста, как вот тут вместо текста сделать чтобы отправлялся рисунок в тело письма, находящийся в Excel?
Sub SendMail()

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
.Send
End With

[roborrr]

[QUOTE=КТатьяна;791433]Добрый день
Помогите, пожалуйста, как вот тут вместо текста сделать чтобы отправлялся рисунок в тело письма, находящийся в Excel?

Если у вас ест версия EXCEL2007, то делайте ето вручную: помедте ячейки которие хотите скопировать как рисунок, потом заидите : главная-->буфер обмена-->вставить, там маленкая стрелочка, потом-->как рисунок-->копировать как рисунок, на виподающем окне отмедте "как на экране" и "векторный" и нажмите OK, таблица ексцел закопируеться в буфере обмена как рисунок и вставте его где хотите. если хотите получить код всего этого пойграйте с макрорекордером.

[КТатьяна]

В ручную то я вставить могу, но мне именно нужен код, я уже пробовала различные варианты, у меня не получается, к сожалению как только выходишь из excel макрос престает записывать движения.
Мне совсем никто не может помочь? очень необходимо....