¿Cómo Obtener el rango de las series de un gráfico?

"emilio" escribió en el mensaje news:

Llevo un rato peleandome con ello y no doy con la tecla ni encuentro nada en
Internet, intento obtener el rango de una serie de un gráfico así
ActiveSheet.ChartObjects("Gráfico 1").Activate
vntSerie = ActiveChart.SeriesCollection(1).XValues

pero esto me devuelve la matriz con los valores de esa serie, ¿no habrá
alguna manera de que devuelva el rango asï =Hoja1!R2C2:R25C2?

La propiedad FormulaR1C1 devuelve la fórmula de la serie en notación L1C1. Por ejemplo, para devolver el rango de la serie 1 del gráfico 1 de Hoja1:

With Worksheets("Hoja1").ChartObjects(1).Chart.SeriesCollection(1)
MsgBox Mid(Left(.FormulaR1C1, InStrRev(.FormulaR1C1, ",") - 1), InStrRev(Left(.FormulaR1C1, InStrRev(.FormulaR1C1, ",") - 1), ",") + 1)
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel