Hi
Put the 3 charts on a chart-sheet and make it the active sheet.
Then run this macro. You may have to change the charts names
Adjust lngUserWidth to fill your needs. 


Sub SetCharts()
    Dim lngWidth, lngHeight, lngUserWidth, lngLeft
    lngWidth = ActiveChart.ChartArea.Width
    'set lngUserWidth = lngWidth for full width
    lngUserWidth = 700
    lngLeft = lngWidth / 2 - lngUserWidth / 2
    lngHeight = ActiveChart.ChartArea.Height \ 3
    With ActiveSheet.ChartObjects("Chart 1")
        .Top = 1
        .Left = lngLeft
        .Height = lngHeight
        .Width = lngUserWidth
    End With
    With ActiveSheet.ChartObjects("Chart 2")
        .Top = lngHeight
        .Left = lngLeft
        .Height = lngHeight
        .Width = lngUserWidth
    End With
    With ActiveSheet.ChartObjects("Chart 3")
        .Top = lngHeight * 2
        .Left = lngLeft
        .Height = lngHeight
        .Width = lngUserWidth
    End With
End Sub
BR
Tommy Bak