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!
 

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

Preguntas similares