For this you will need to change the minimum value of the secondary axis in a way that horizontal axis crosses secondary axis at 0.
You can use this simple macro which adjusts the minimum value of secondary axis according to the ratio of primary axis. (It is assumed primary axis crosses the x axis at 0)
Sub alignme()
With ActiveSheet.ChartObjects("Chart 2").Chart
x1 = .Axes(xlValue).MinimumScale
y1 = .Axes(xlValue).MaximumScale
r1 = x1 / y1
y2 = .Axes(xlValue, xlSecondary).MaximumScale
x2 = y2 * r1
.Axes(xlValue, xlSecondary).MinimumScale = x2
End With
End Sub
Check attached. You can just press that button to align.
X & Y.xlsm
Bookmarks