Desde MS Access 2016 exporto una Consulta a Excel. La Consulta qry123, tiene las siguientes columnas: A B C D E En esa Hoja(qry123) necesito crear una Gráfica de Barra Apilada. A la fecha no he logrado entender el significado de:
.SeriesCollection(x).Values .SeriesCollection(x).XValues En mi caso para crear la gráfica grabé esta Macro en Excel:
ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Values = "=qry_123!$A$2:$A$15"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Values = "=qry_123!$C$2:$C$15"
ActiveChart.FullSeriesCollection(2).XValues = "=qry_123!$E$2:$E$15"
Pero, no he podido escribir en VBA su equivalente en las siguientes líneas de codigo VBA:
With .Chart
.ChartType = xlBarStacked
.HasTitle = True
.HasLegend = False
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = ws.Range("A2", ws.Range("A2").End(xlDown))
.SeriesCollection(2).XValues = ws.Range("A2", ws.Range("B2").End(xlDown)
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = ws.Range("C2", ws.Range("C2").End(xlDown))
.SeriesCollection(2).XValues = ws.Range("C2", ws.Range("C2").End(xlDown))
. . . End with
Agradezco que me ayuden a entender el uso de seriescolletion en el Gráfico de Barra Apliada y a escribir de manera correcta la Macro en código VBA para crear dicho Gráfico.
La hoja está definida así:
Dim ws As Excel.Worksheet
Set ws = wb.Sheets("qry_123")
Saludos
ws.Range("A2", ws.Range("A2").End(xlDown))
prueba con"=" & ws.Name & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("A2").End(xlDown).Row, 1)).Address(True, True, xlA1, False)
y así con los demásvalues
, a ver qué pasa.SeriesCollection(2).Values = "=" & ws.qry_123 & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("A2").End(xlDown).Row)).Address(True, True, xlA1, False)´ VBA muestra Error de Compilación: No se encontró el método o el dato miembro Se colorea de azul esta instrucción:
.qry_123´ws.name
justo antes del símbolo!
. Fíjate en mi primer comentario que yo lo puse justo después del=
y tú en los tuyos no.