Resize Chart in Proportion [RESOLVED]

Im having the same problem as this guy.
http://www.vbforums.com/showthread.p...t=chart+resize

I dont want my plot of a circle to change to an ellipse when I resize my chart.

The code to do it in VBA is

VB Code:

ActiveSheet.Shapes("Chart 1").ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 0.88, msoFalse, msoScaleFromTopLeft

This resizes by 0.8 and keeps the proportions.
I got this by recording a macro whilst holding down shift and resizing.

What I am trying to do, is have a worksheet event that ONLY allows proportional resizing.

ie when I resize the chart, it always gives the effect of shift being held down at the same time

With a bit (well actually a lot :)) of digging I came up with this solution.

Follow the instruction on KB213738
http://support.microsoft.com/default...b;en-us;213738

Basically, add this to a class

VB Code:

Option Explicit
 
Public WithEvents EmbChart As Chart
 
 
Private Sub EmbChart_Resize()
Dim strWidth As String
Dim strHeight As String
 
strWidth = ActiveSheet.Shapes("Chart 1").Width
ActiveSheet.Shapes("Chart 1").Height = strWidth
 
End Sub

And this in the ThisWorkbook module

VB Code:

Option Explicit
 
Dim clsChart As New clsEvent
 
 
Private Sub Workbook_Open()
   Set clsChart.EmbChart = Sheet1.ChartObjects(1).Chart
End Sub

Voila!
The height is always the same as the width!!