Corrección de código para gráfica de dispersión

22/05/2015 - 16:08 por eahvela | Informe spam

En una macro que realiza un gráfico de dispersión le indico el rango de valores ("H58:N77") la columna "H" contiene los valores del eje x, pero me los gráfica como una serie más del gráfico, cuál será la modificación en la macro para indicarle que "H" tiene los valores de eje x (Categorías)

Sub grafico()
'Inserta el grafico
Range("H58:N77").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
'Le da formato de Ancho, Alto y Posicion al grafico
With ActiveChart.Parent
.Left = 940
.Width = 685
.Height = 346
.Top = Range("O58").Top
End With
End Sub

Gracias!

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Corrección código

Leer las respuestas

#1 Emilio

22/05/2015 - 18:37 | Informe spam

-
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias
-
Hola!
has de añadir las series una por una, no en bloque

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Hoja1!$H$58:$H$77"
ActiveChart.SeriesCollection(1).Values = "=Hoja1!$J$58:$J$77"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "=Hoja1!$H$58:$H$77"
ActiveChart.SeriesCollection(2).Values = "=Hoja1!$K$58:$K$77"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).XValues = "=Hoja1!$H$58:$H$77"
ActiveChart.SeriesCollection(3).Values = "=Hoja1!$L$58:$L$77"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).XValues = "=Hoja1!$H$58:$H$77"
ActiveChart.SeriesCollection(4).Values = "=Hoja1!$M$58:$M$77"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).XValues = "=Hoja1!$H$58:$H$77"
ActiveChart.SeriesCollection(5).Values = "=Hoja1!$N$58:$N$77"

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida