Definir cruce ejes en excel VBA

Tengo un archivo de Excel donde hay una macro que me crea un gráfico de dispersión con los datos de la tabla.

He podido crear en VBA que el eje Horizontal (X) este definido por el valor de una casilla, pero el eje Vertical (Y) no se como hacerlo.

El gráfico que quiero hacer es este (lo he hecho manualmente):

El código VBA que he hecho es este:

    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Select
    ActiveChart.SetSourceData Source:=Range("Hoja1!$A$1:$C$14")
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveChart.FullSeriesCollection(2).Delete
    ActiveChart.FullSeriesCollection(1).Name = "Grafico"
    ActiveChart.FullSeriesCollection(1).XValues = "=Hoja1!$B$2:$B$14"
    ActiveChart.FullSeriesCollection(1).Values = "=Hoja1!$C$2:$C$14"
    ActiveChart.Axes(xlCategory).Crosses = xlAxisCrossesCustom
    ActiveChart.Axes(xlValue).CrossesAt = Range("B15").Value

Como veréis en la ultima linea, he podido definir el eje horizontal este definido por el valor de la casilla "B15"

Como puedo hacer lo mismo, pero con el eje Vertical, ¿qué lo defina por el valor de la casilla "C15"?

Añade tu respuesta

Haz clic para o