Resizing Chart window using VBA

[Barb Reinhardt]

Using VBA, how do I resize a chart window to be the same on all worksheets
within the workbook

I have something like this already:

For Each aWS In ActiveWorkbook.Worksheets
For Each objChart In aWS.ChartObjects
...blah blah blah
'objChart.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
'objChart.ScaleHeight 1, msoFalse, msoScaleFromBottomRight
next objchart
next aWS

I believe the objchart.scale ... lines just change the height or width to a
ratio of the current height or width. What I want is to have all of the
chart windows within the workbook be the same size.

Thanks

 

[Jon Peltier]

Hi Barb -

Try this:

For Each aWS In ActiveWorkbook.Worksheets
For Each objChart In aWS.ChartObjects
objChart.Width = <width>
objChart.Height = <height>
next objchart
next aWS

- Jon