How to make charts "exactly" alike?

P

Peter T

Here's a little macro to get you started. First select
the chart to which all others on the same sheet will be
sized. This only adjusts the plot-area and will fail if
you try and set positions outside the chart-area.

Recording a macro, adjust other dimensions, even overall
position. Compare what you recorded with this macro and
it shouldn't be too difficult to include other chart
items, eg titles.

Maybe turn off Auto Scale font in various item format
options for font, and set all charts to matching font
sizes per item, again by macro.

Sub Test1()
Dim MainChart As Chart, ch As ChartObject
Set MainChart = ActiveChart

With MainChart

For Each ch In ActiveSheet.ChartObjects

ch.Chart.PlotArea.Top = .PlotArea.Top
ch.Chart.PlotArea.Left = .PlotArea.Left
ch.Chart.PlotArea.Width = .PlotArea.Width
ch.Chart.PlotArea.Height = .PlotArea.Height

Next
End With

End Sub

Regards,
Peter
PS, used to know a band called Marsuplami, long time ago
 
Top