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

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
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"Barb Reinhardt" wrote in message
...
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