Hello,

I need to save some Excel Graphs as jpg files. How can I do it?

Thank you.

Athena

Hi,

Requires code. Syntax: Activechart.Export <filename> , <filtertype>

You can use this in the immediate window,(ALT+F11 CTRL+G)

Activechart.export "C:\mychart.jpg"

Cheers
Andy

Athena wrote:
> Hello,
>
> I need to save some Excel Graphs as jpg files. How can I do it?
>
> Thank you.
>
> Athena

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info

Hello Andy,

Thank you very much. It worked. Do you happened to know how to set the
resolution of the jpeg image as well?

Athena

"Andy Pope" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi,
>
> Requires code. Syntax: Activechart.Export <filename> , <filtertype>
>
> You can use this in the immediate window,(ALT+F11 CTRL+G)
>
> Activechart.export "C:\mychart.jpg"
>
> Cheers
> Andy
>
> Athena wrote:
>> Hello,
>>
>> I need to save some Excel Graphs as jpg files. How can I do it?
>>
>> Thank you.
>>
>> Athena
>
> --
>
> Andy Pope, Microsoft MVP - Excel
> http://www.andypope.info

There is no control over the resolution of the exported image. You get
whatever the resolution of the screen is.

By the way, JPG is really the wrong format for a chart. Most computer
graphics are better suited to PNG or GIF, which are also possible using the
Chart.Export method Andy provided. The JPG format was designed for
photographic images, which have areas of gradually changing colors and
shadows. JPG does poorly where there are sharp transitions of colors, for
example, along the edges of shapes and in text. For these situations, which
are what charts are made of, PNG is probably your best choice.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Athena" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hello Andy,
>
> Thank you very much. It worked. Do you happened to know how to set the
> resolution of the jpeg image as well?
>
> Athena
>
> "Andy Pope" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Hi,
>>
>> Requires code. Syntax: Activechart.Export <filename> , <filtertype>
>>
>> You can use this in the immediate window,(ALT+F11 CTRL+G)
>>
>> Activechart.export "C:\mychart.jpg"
>>
>> Cheers
>> Andy
>>
>> Athena wrote:
>>> Hello,
>>>
>>> I need to save some Excel Graphs as jpg files. How can I do it?
>>>
>>> Thank you.
>>>
>>> Athena
>>
>> --
>>
>> Andy Pope, Microsoft MVP - Excel
>> http://www.andypope.info
>

Jon,

Thank you. I did not know this.I shall try to save them as png files.

Athena

"Jon Peltier" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> There is no control over the resolution of the exported image. You get
> whatever the resolution of the screen is.
>
> By the way, JPG is really the wrong format for a chart. Most computer
> graphics are better suited to PNG or GIF, which are also possible using
> the Chart.Export method Andy provided. The JPG format was designed for
> photographic images, which have areas of gradually changing colors and
> shadows. JPG does poorly where there are sharp transitions of colors, for
> example, along the edges of shapes and in text. For these situations,
> which are what charts are made of, PNG is probably your best choice.
>
> - Jon
> -------
> Jon Peltier, Microsoft Excel MVP
> Tutorials and Custom Solutions
> Peltier Technical Services, Inc. - http://PeltierTech.com
> _______
>
>
> "Athena" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Hello Andy,
>>
>> Thank you very much. It worked. Do you happened to know how to set the
>> resolution of the jpeg image as well?
>>
>> Athena
>>
>> "Andy Pope" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> Hi,
>>>
>>> Requires code. Syntax: Activechart.Export <filename> , <filtertype>
>>>
>>> You can use this in the immediate window,(ALT+F11 CTRL+G)
>>>
>>> Activechart.export "C:\mychart.jpg"
>>>
>>> Cheers
>>> Andy
>>>
>>> Athena wrote:
>>>> Hello,
>>>>
>>>> I need to save some Excel Graphs as jpg files. How can I do it?
>>>>
>>>> Thank you.
>>>>
>>>> Athena
>>>
>>> --
>>>
>>> Andy Pope, Microsoft MVP - Excel
>>> http://www.andypope.info
>>
>
>

[tprtaks]

Thank you Andy, i was looking for a solution too export graphs in PNG format, it work perfectly.

take care all.

[rfengr_1]

Macro you can setup on the Toolbar to quickly export charts to a file in same directory as the workbook with filename same as the title of the chart.

Sub CopyChartToGIF()
'Take ActiveChart and copy it as a GIF image to the same directory as the Workbook is in and name it with the Chart_Title with spaces replaced with underscores.
Dim chtCopyChart As Chart, sCurrentDirectory As String, sFileName As String
Dim x As Integer, CellCharacter As String

Set chtCopyChart = ActiveChart
sCurrentDirectory = ActiveWorkbook.Path
sFileName = chtCopyChart.ChartTitle.Text

For x = 1 To Len(sFileName)
CellCharacter = Mid(sFileName, x, 1)
If CellCharacter Like "[</*\?%]" Then
sFileName = Replace(sFileName, CellCharacter, "_", 1) ', Replaces all illegal filename characters with "_"
End If
If Asc(CellCharacter) <= 32 Then
sFileName = Replace(sFileName, CellCharacter, "_", 1) ' Replaces all non printable characters with "_"
End If

Next

sFileName = sFileName & ".gif"
sFileName = sCurrentDirectory & "\" & sFileName

chtCopyChart.Export Filename:=sFileName, FilterName:="GIF"

MsgBox "Chart copied to " & sFileName, vbOKOnly, "Success!"


End Sub

[Bryang0906]

Is there a way to use rfengr's code and save the gif file not with the chart name, but the worksheet name instead?

This site is great, thanks so much!

[rfengr_1]

Bryang0906, here you go. Simply substitute ActiveSheet.Name to sFileName. Simple.

Sub CopyChartToGIF()
'Take ActiveChart and copy it as a GIF image to the same directory as the Workbook is in and name it with the Active Worksheet Name with spaces replaced with underscores.
Dim chtCopyChart As Chart, sCurrentDirectory As String, sFileName As String
Dim x As Integer, CellCharacter As String

Set chtCopyChart = ActiveChart
sCurrentDirectory = ActiveWorkbook.Path
sFileName = ActiveSheet.Name

For x = 1 To Len(sFileName)
CellCharacter = Mid(sFileName, x, 1)
If CellCharacter Like "[</*\?%]" Then
sFileName = Replace(sFileName, CellCharacter, "_", 1) ', Replaces all illegal filename characters with "_"
End If
If Asc(CellCharacter) <= 32 Then
sFileName = Replace(sFileName, CellCharacter, "_", 1) ' Replaces all non printable characters with "_"
End If

Next

sFileName = sFileName & ".gif"
sFileName = sCurrentDirectory & "\" & sFileName

chtCopyChart.Export Filename:=sFileName, FilterName:="GIF"

MsgBox "Chart copied to " & sFileName, vbOKOnly, "Success!"


End Sub

[Dezy]

Originally Posted by Athena

Hello,

I need to save some Excel Graphs as jpg files. How can I do it?

Thank you.

Athena

After your chart has been prepared go to follow the steps to covert excel cahrt into jpg format
1. File > Save as > Select "Web Page (*.htm;*.html)
2.Choose Selection: Chart radio button
3. Click on Publish
4. Choose the destination where you want to save the chart by clciking on Browse
5. Again click on Publish
6. Then open the file you have saved (e.g. Chart.htm or Cahrt.html)
7. After opening the file right click on the chart and choose Save Image As
8. Then type the file name chart.jpg (in this you have to chnage the format by because by default it would be saved in gif format so you need to change it into jpg format so must save the file name with .jpg extension)
9. Click on save (please choose the destination where you want to save)
10. Now your excel chart is in jpf format
HOPE IT WOULD BE USEFUL . THANKS