I'm using this routine to export charts as a gif file but I would like
to make all of the charts the same size. Width 369px and Height 249px.
Could someone show me how to add this? Thanks.

Sub ExportAllCharts()

Dim iCompanyCount As Integer
Dim iCompany As Integer

Application.Calculation = xlCalculationAutomatic

iCompanyCount = Sheet1.Range("A1").CurrentRegion.Rows.Count - 1

For iCompany = 1 To iCompanyCount

Application.StatusBar = "Exporting Chart " & iCompany & " of "
& iCompanyCount

Sheet3.Range("A2").Value = iCompany
Chart2.Export "c:\mydir\" & Sheet3.Range("D2").Value & ".gif",
"GIF"
Next

Application.StatusBar = False

End Sub