¿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

Hola Fernando!
pues tampoco iba tan descaminado ;-))
mira que había probado con FormulaR1C1 pero no hubo modo :-(

Muchísimas gracias

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"Fernando Arroyo" escribió en el mensaje
news:
"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