Отправить диаграмму из Excel в Outlook (не вложением) VBA

[Kycaka]

Всем добрый день.
Сейчас у меня сделано так:
1) диаграмма сохраняется на общий диск как картинка.jpg
2) с этого общего диска добавляется во вложение
3) с этого общего диска добавляется в тело письма через .HTMLBody

В принципе работает нормально, но есть минусы:
1) не у всех может быть доступ к общему диску
2) хотелось бы вообще без сохранения картинок куда-либо

Не получилось следующее:
1) прописать путь на картинку во вложении, пробовал как написано тут: http://programmersforum.ru/showthread.php?t=210092
2) не получилось вставлять картинку во вложение без сохранения на комп

Помогите, плз

[The_Prist]

Сообщение от Kycaka

The_Prist, cпасибо за помощь, для 1 диаграммы работает нормально, правда долго. Но я планирую отправлять минимум 6 диаграмм. При таком коде ничего не получилось :

Sub otpr_()

With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = "xxx"
.Subject = "test"
.display
ActiveSheet.ChartObjects("Диаграмма 2").Copy
Application.SendKeys "^v"
ActiveSheet.ChartObjects("Диаграмма 3").Copy
Application.SendKeys "^v"
ActiveSheet.ChartObjects("Диаграмма 4").Copy
Application.SendKeys "^v"
.send
End With
End With

А так?

Sub otpr_()
    With CreateObject("Outlook.Application")
        With .CreateItem(0)
            .To = "xxx"
            .Subject = "test"
            ActiveSheet.ChartObjects.Select
            Selection.Copy
            .display
            Application.SendKeys "^v"
            .send
        End With
    End With
End Sub

Код копирует все диаграммы на листе и вставляет их в сообщение.

[Kycaka]

Сообщение от The_Prist

А так?

Sub otpr_()
    With CreateObject("Outlook.Application")
        With .CreateItem(0)
            .To = "xxx"
            .Subject = "test"
            ActiveSheet.ChartObjects.Select
            Selection.Copy
            .display
            Application.SendKeys "^v"
            .send
        End With
    End With
End Sub

Код копирует все диаграммы на листе и вставляет их в сообщение.

проверил, вставляет только 1ую диаграмму, а у вас работает?

[The_Prist]

Сообщение от Kycaka

а у вас работает?

У меня работает. создал 3 диаграммы - все друг за другом были вставлены.