Hi,

If your charts are chart objects on worksheets then you could use the
following code to size (width/height only) all charts to be the same as
the active one.

Sub ResizeAllCharts()
    Dim sngWidth As Single
    Dim sngHeight As Single
    Dim objCht As ChartObject

    sngWidth = ActiveChart.Parent.Width
    sngHeight = ActiveChart.Parent.Height

    For Each objCht In ActiveSheet.ChartObjects
        objCht.Width = sngWidth
        objCht.Height = sngHeight
    Next
End Sub

This will not attempt to make plot areas or any other chart element the
same.

Another way is the click the selection arrow on the drawing toolbar and
then group select all the chartobjects. You can then format the objects
all at only. Again only in terms of width/height of actual chart.

Cheers
Andy