Cria um gráfico em sua planilha e testa ai amigãooo....

Sub Salvar_grafico()
Dim ChartNum As Integer
ChartNum = 1 'Numero do seu Grafico

On Error Resume Next
Set CurrentChart = Sheets("PLAN1").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 755
CurrentChart.Parent.Height = 475

' Caminho onde você salva a imagem, voce escolhe..
'Fname = "C:temp.gif"
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"

End Sub

Abraço
Att

Cleiton,

Perfeito amigo. Muito obrigado!

Cleiton, você saberia dizer como exportar uma range em forma de imagem?

Tenho dois gráfico um colado no outro e gostaria que os dois ficassem na mesma imagem.

Aqui no Fórum tem oque você precisa...

viewtopic.php?f=28&t=2495