Buenos días y mes a todos;

Estoy intentando armar una macro que sobre unos datos me genera un gráfico.

Lo que me gustaría configurar es el poder cambiar los nombres de las etiquetas que aparecen en la leyenda y que se  generan predeterminadamente y también si es posible añadir un filtro.

Adjunto macro de ejemplo.

Saludos a todos.

MGráfico.xlsm

Hola a todos;

-He conseguido poner los valores a las etiquetas de la leyenda menos a una y no sé donde está el error.

A ver sí alguno de vosotros sabe donde me estoy equivocando.

 

Saludos.

MGráfico(1).xlsm

A veces los árboles no nos dejan ver el bosque. 

Cuando te pase algo que aparentemente no tiene explicación empieza quitando On Error Resume Next.

Hay 5 series de la 1 a la 5 y tu intentas cambiar de la 2 a la 6, por lo que la 1 no la cambias nunca y la 6 no existe y ahí se produce un error, error enmascarado por On Error Resume Next, así se soluciona el problema.

    .Chart.SeriesCollection(pf - 1).Name = Hoja14.Cells(pf, 3).Value

 

Bo día e gracias por la aclaración Antoni.

A veces uno da 20 golpes contra la misma piedra.

 

Que teñas un bo día.