Moving/saving charts


Posted by Karen Glover on October 25, 2000 8:26 AM

HELP - I am not an advanced Excel user. Can you save a chart (without any links, calculations, formulas, etc.) somewhere else. I know you can cut/paste charts into Word - but is this the most effective way ? A colleague of mine uses complex macros to generate charts. Clients then want electronic versions of printed out figures (charts) (which is where I come into the equation, i.e. hassling him for digital copies of charts). At the moment he generates charts, prints them, and then goes onto the next chart. Because of size of files (and time factor), he does not save generated charts. So, back to my original question: Once a chart has been generated can it be copied / saved / pasted anywhere else to be kept as a hardcopy for future reference ?

I would really appreciate any answers.

Cheers,

Posted by Ben O. on October 25, 2000 9:17 AM

If you only want to save that chart as a static image file, you can take a screen shot of it (select the chart and and press Alt + Print Screen), paste it into an image program (such as Windows Paint) and then save it as a .bmp, .gif, or whatever you want. I think that there's a macro that automates this process at the Excel Logic Page (http://geocities.com/aaronblood/).

-Ben



Posted by Ivan Moala on October 26, 2000 1:59 AM

You could try this routine that saves all charts
generated on a worksheet to your active work book dir as a gif file....a few changes will
get you what you want,

Sub ChartPict_save()
Dim fname As String
Dim Pict
Dim ch
Dim i As Integer

i = 1
For Each Pict In ActiveSheet.ChartObjects
Set ch = Pict.Chart
fname = ThisWorkbook.Path & Application.PathSeparator & "temp" & i & ".gif"
ch.Export FileName:=fname, FilterName:="GIF"
i = i + 1
Next
End Sub

Ivan