Send multiple charts by e-mail

  • Thread starter Thread starter dancer
  • Start date Start date
D

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?
 
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
 
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.
 
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
 
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
 
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!
 
OR it goes through the loop of moving the account numbers to the criteria
cell and then sends the last one by e-mail.
 
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 said:
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?
Click to expand...

You could use 'PDF Creator' FREE, to either send as a picture or as PDF
file.
 
dancer said:
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?
Click to expand...

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