Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Set Sheet = Worksheets("Sheet1")
Set area = Sheet.Range(Sheet.PageSetup.PrintArea)
area.CopyPicture xlPrinter

Dim chartobj As ChartObject
'Set chartobj = Sheet.ChartObjects.Add(0, 0, 400, 250)
Set chartobj = Sheet.ChartObjects.Add(0, 0, area.Width, area.Height)
chartobj.Chart.Paste
chartobj.Chart.Export "C:\test.png", "png"
chartobj.Delete
Application.ScreenUpdating = True

End Sub