And you can try running something like this in VBA

With Worksheets(1).ChartObjects(1)
.Height = .Width
With .Chart
.Axes(xlValue).MaximumScale = .Axes(xlCategory).MaximumScale
.Axes(xlValue).MinimumScale = .Axes(xlCategory).MinimumScale
.PlotArea.Height = .PlotArea.Width
End With
End With

Ed Ferrero
www.edferrero.com