Nombre de la Serie para el Titulo de una Grafica

Hola, J. Enrique !

... poner el Nombre de la serie en el Título de un grafico dependiendo del Rango de Datos del grafico, por ejemplo:
... datos del grafico: =Eval1o!$B$8:$R$8 ... nombre de la Serie: =Eval1o!$B$8 ... Valores: =Eval1o!$C$8:$R$8
... el texto del titulo del grafico seria el valor contenido en Eval1o!$B$8.
... cambio el rango de datos a: Eval1o!$B$9:$R$9
... el nombre debe cambiar a Eval1o!$B$9
... los Valores a Eval1o!$C$9:$R$9.
... el Texto ... titulo del Grafico seria el valor contenido en Eval1o!$B$9

1.- si seleccionas [en el grafico] alguna de las series 'veras' que...
la sintaxis de la formula [para la/s serie/s del grafico] es: =SERIES(Titulo;Rotulos;Valores;Orden)
2.- si 'haces' click-derecho [sobre el grafico] y elijes [del menu 'contextua] -> datos de origen
'tendras' a tu disposicion 2 formas de modificar/cambiar dichos 'parametros' ...
a) en la ficha 'rango de datos' veras su 'composicion' [en un cuadro de 'edicion de referencias']
[+/-] =Eval1o!$B$8:$R$8 [o... =Eval1o!$B$7:$R$8 'suponiendo' unos rotulos de categorias en 'C7:R7']
b) en la ficha 'serie' [tambien en cuadros de 'edicion de referencias'] puedes modificarlos 'por partes' [p.e.]
-> nombre [de la serie y titulo] =Eval1o!$B$8
-> valores [rango de] =Eval1o!$C$8:$R$8
-> rotulos de categorias [rango de] =Eval1o!$C$7:$R$7
3.- si decides modificar en la ficha 'rango de datos' [un solo paso] y quisieras 'conservar' los rotulos de categorias...
selecciona primero el rango de los rotulos de categorias [eje 'X'] p.e. B7:R7
presiona {Ctrl} y 'añade' a la seleccion la fila de los valores [de la serie] p.e. B9:R9 ...o B15:R15 ... o ...]

si utilizas 'otra forma' de cambiar los rangos de valores de las series... ¿comentas?
saludos,
Héctor.

Héctor, gracias por tu interes, pero ya encontré la solución, aquí la pongo
para quien quiera usarla:

ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartTitle.Select
x = ActiveChart.SeriesCollection(1).Name
Selection.Characters.Text = x

J. Enrique Ramos Menchaca
Guadalajara, Jalisco, México.
"Héctor Miguel" escribió en el mensaje
news:Oc%23hwO$

Hola, J. Enrique !

> ... poner el Nombre de la serie en el Título de un grafico dependiendo

del Rango de Datos del grafico, por ejemplo:

> ... datos del grafico: =Eval1o!$B$8:$R$8 ... nombre de la Serie:

=Eval1o!$B$8 ... Valores: =Eval1o!$C$8:$R$8

> ... el texto del titulo del grafico seria el valor contenido en

Eval1o!$B$8.

> ... cambio el rango de datos a: Eval1o!$B$9:$R$9
> ... el nombre debe cambiar a Eval1o!$B$9
> ... los Valores a Eval1o!$C$9:$R$9.
> ... el Texto ... titulo del Grafico seria el valor contenido en

Eval1o!$B$9

1.- si seleccionas [en el grafico] alguna de las series 'veras' que...
la sintaxis de la formula [para la/s serie/s del grafico] es:

=SERIES(Titulo;Rotulos;Valores;Orden)

2.- si 'haces' click-derecho [sobre el grafico] y elijes [del menu

'contextua] -> datos de origen

'tendras' a tu disposicion 2 formas de modificar/cambiar dichos

'parametros' ...

a) en la ficha 'rango de datos' veras su 'composicion' [en un cuadro

de 'edicion de referencias']

[+/-] =Eval1o!$B$8:$R$8 [o... =Eval1o!$B$7:$R$8 'suponiendo'

unos rotulos de categorias en 'C7:R7']

b) en la ficha 'serie' [tambien en cuadros de 'edicion de

referencias'] puedes modificarlos 'por partes' [p.e.]

-> nombre [de la serie y titulo] =Eval1o!$B$8
-> valores [rango de] =Eval1o!$C$8:$R$8
-> rotulos de categorias [rango de] =Eval1o!$C$7:$R$7
3.- si decides modificar en la ficha 'rango de datos' [un solo paso] y

quisieras 'conservar' los rotulos de categorias...

selecciona primero el rango de los rotulos de categorias [eje 'X']

p.e. B7:R7

presiona {Ctrl} y 'añade' a la seleccion la fila de los valores [de

la serie] p.e. B9:R9 ...o B15:R15 ... o ...]

si utilizas 'otra forma' de cambiar los rangos de valores de las series...

¿comentas?

saludos,
Héctor.