ActiveChart.ApplyLayout (4)
Dim yRg As Range
Dim yChart As ChartObject
Set yRg = Range("AI20:AN40")
Set yChart = ActiveSheet.ChartObjects(2)
With yChart
.Top = yRg(1).Top
.Left = yRg(1).Left
.Width = yRg.Width
.Height = yRg.Height
End With
ActiveChart.ApplyLayout (4)
Dim zRg As Range
Dim zChart As ChartObject
Set zRg = Range("AP20:AU40")
Set zChart = ActiveSheet.ChartObjects(3)
With zChart
.Top = zRg(1).Top
.Left = zRg(1).Left
.Width = zRg.Width
.Height = zRg.Height
End With
ActiveChart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = "Press. vs Throttle Position Variation"