chart resize macro

[Josh Craig]

Hi all,

I often have to put a large number of charts in a report that need to be the
same size.

I'd like to create a macro that automatically resizes selected charts rather
than manually resizing each one.

I've tried to record a macro where I select a chart and resize it but the
resizing part doesn't seem to get recorded.

Any idea on how I would do this?

Thanks,

Josh

 

[Fan924]

Sub ChartResize1024x768()
Dim oCht As Chart
Set oCht = ActiveChart
oCht.Parent.Width = 768 '1024*.75=768
oCht.Parent.Height = 576 '768 *.75=576
End Sub

 

[Josh Craig]

Works perfectly. Thanks very much!