Save Chart As A Picture VBA

[Admin]

Hi All,

Here is a routine which converts the chart into a picture (GIF, BMP, JPG)

Put this macro in a Standard module.


Public Enum PicType
GIF = 1
JPG = 2
BMP = 3
End Enum
Sub SaveChartAs(ByRef Chart_Object As ChartObject, ByVal PictureType As PicType, _
Optional ByVal FilePath As String, Optional ByVal FileName As String)

Dim Extn As String

Extn = Application.Choose(PictureType, ".GIF", ".JPG", ".BMP")

If Len(FilePath) = 0 Then FilePath = ThisWorkbook.Path
If Len(FileName) = 0 Then
FileName = Chart_Object.Chart.Name & Extn
Else
FileName = FileName & Extn
End If


Chart_Object.Chart.Export FilePath & "\" & FileName, Mid$(Extn, 2)

End Sub

and call the routine like ..


Sub kTest()

SaveChartAs ActiveSheet.ChartObjects(1), JPG, "C:\Test", "MyImage"

End Sub

Enjoy !