Send multiple charts by e-mail

[dancer]

I need to send charts only ( not the supporting data) to 11 people by
e-mail. About 15 charts per person.
But 4 people would get all the charts (about 80 charts).

I have the chart file prepared with a macro that creates the charts one at a
time according to an account number that I enter into a key cell to form a
criteria that filters data and makes the chart. A part of this macro also
prints the charts on a printer. But I need to send them electronically
instead of physically.

The charts can be copied easily, but won't paste into an e-mail. I don't
want to copy one at a time anyway.

Who can tell me an easy way to do this?

 

[Mike Middleton]

dancer -

A manual way to do this is to select the chart (by clicking just inside its
outer border), hold down the Shift key while you click the Edit menu item,
choose Copy Picture, and use Appearance as shown on screen, Size as shown on
screen, and Format bitmap. Then paste into the e-mail.

But to avoid these manual steps for each chart, you'll need a VBA solution.

- Mike
http://www.mikemiddleton.com

 

[Ron de Bruin]

Hi dancer

You can use code like this to add them as picture
http://www.rondebruin.nl/mail/folder2/chart.htm

If you loop through all the charts you can add them all to the mail like this.

 

[dancer]

This works great. Thank you for replying!

Now please tell me how to put a list of account numbers into a criteria cell
one at a time from worksheet cells.

Right now I am entering each one by hand.

For example: Column B, rows 4 through 80 would have numbers 104, 108, 2256,
9704, etc.

I would need to put one in the controlling cell, make the chart, go through
the other steps, then the next number, then the next until the numbers end.
I know how to do the loop of putting the charts on the e-mail, I just don't
know how to get the controlling account numbers in the criteria cell.

 

[Ron de Bruin]

Hi

I use Sheet1 in my example and the criteria cell D1 is also in Sheet1

Sub test()
Dim cell As Range
For Each cell In ThisWorkbook.Sheets("Sheet1") _
.Range("B4:B80").Cells.SpecialCells(xlCellTypeConstants)
.Range("D1").Value = cell.Value

'put your code here

Next cell
End Sub

 

[Ron de Bruin]

Oops

Use this one

Sub test()
Dim cell As Range
For Each cell In ThisWorkbook.Sheets("Sheet1") _
.Range("B4:B80").Cells.SpecialCells(xlCellTypeConstants)

ThisWorkbook.Sheets("Sheet1").Range("D1").Value = cell.Value

'put your code here

Next cell
End Sub

 

[dancer]

Hi Ron,
This code works well for me. Except, I am trying to attach each gif file to
the e-mail before I send the e-mail (using your code of before on this
subject). I just can't do it. I have tried several ways that seem logical,
but it still sends the e-mail with only 1 chart attached.

Can you help me again?

Thanks!

 

[dancer]

OR it goes through the loop of moving the account numbers to the criteria
cell and then sends the last one by e-mail.

 

[Ron de Bruin]

Hi Dancer

Can you send me the workbook private
I can look at the code you are using now.

Look at it tomorrow for you then

 

[dancer]

Thank you for replying. I just figured it out!!
Your code was wonderful help.

 

[Ron de Bruin]

Ok, have a nice weekend

 

[Harry's GMail World]

I need to send charts only ( not the supporting data) to 11 people by
e-mail. About 15 charts per person.
But 4 people would get all the charts (about 80 charts).

I have the chart file prepared with a macro that creates the charts one at a
time according to an account number that I enter into a key cell to form a
criteria that filters data and makes the chart. A part of this macro also
prints the charts on a printer. But I need to send them electronically
instead of physically.

The charts can be copied easily, but won't paste into an e-mail. I don't
want to copy one at a time anyway.

Who can tell me an easy way to do this?

You could use 'PDF Creator' FREE, to either send as a picture or as PDF
file.

 

[Harry's GMail World]

I need to send charts only ( not the supporting data) to 11 people by
e-mail. About 15 charts per person.
But 4 people would get all the charts (about 80 charts).

I have the chart file prepared with a macro that creates the charts one at a
time according to an account number that I enter into a key cell to form a
criteria that filters data and makes the chart. A part of this macro also
prints the charts on a printer. But I need to send them electronically
instead of physically.

The charts can be copied easily, but won't paste into an e-mail. I don't
want to copy one at a time anyway.

Who can tell me an easy way to do this?

You could use 'PDF Creator' FREE, to either send as a picture or as PDF
file.