How to send an embedded image in email from excel

Question

I would like to send a Excel chart in the body of an email (Outlook) (not as attachment) from VB, anyone know how to do this? Solved: Just to add a bit more detail to answer below you'll need the following (could do with some improvement). ``` Sheets(2).ChartObjects(1).Chart.Export "C: emp\Chart2.png" ``` .... ``` .HTMLBody = " " & _ "

" ``` and ``` .Attachments.Add ("C: emp\Chart2.png") ```

Accepted Answer

Seems like the best way is to export the chart:

```
Sheets(1).ChartObjects("Chart 1").Chart.Export "C:\Chart1.png"
```

And then add the image into your mail HTML body:

```
.HTMLBody = .HTMLBody & "< img src='c:\folder\filename.png'>"
```

Confirmed by both technet and mrexcel

How to send an embedded image in email from excel

Solution

Problem