Export Image and Set Image Size

[njskatchmo]

I am trying to export graphs from a workbook that are each on their own worksheet. I am using the following code:

Sub ExportImages2()

Dim oCht As Chart
Set oCht = Chart1

On erRROR GoTo Err_Chart

oCht.Export Filename:="H:\MyDocuments\GovExp.png", Filtername:="png"

Err_Chart:
If Err <> 0 Then
Debug.Print Err.Description
Err.Clear
End If

End Sub

When I export the graph, it seems to select the dimensions randomly. How can I set the image size to be 800x600?

 

[njskatchmo]

Any ideas?

 

[njskatchmo]

So I've resized the images in excel and can exert some control over the output size this way, but graphs that are the same sizes in excel sometimes come out close (within 50 pixels) of the same size, but not always the same sizes. Any ideas?