pak srovnej rozházené rozměry grafů, nejlépe asi makrem, např.:
Sub Makro1()
Dim oChart As ChartObject
For Each oChart In ActiveSheet.ChartObjects
With oChart
.Height = 230 ' rozměry nastav podle potřeby
.Width = 550
With oChart.Chart.PlotArea
.Top = 2
.Left = 2
.Height = 230 - 15
.Width = 550 - 8
End With
End With
Next
End Sub
Pak vyber graf, v nástrojích grafu na záložce formát vyber podokno výběru, v okně vyber všechny grafy a zarovnej je (Nástroje kreslení, záložka formát, zarovnat)
(pokud bys to chtěl často opakovat, můžeš si makro doplnit)citovat