0

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

8
  • ¿Has probado a meter un string con la dirección del rango, en vez de meter el rango completo? Por ejemplo, en vez de 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ás values, a ver qué pasa
    – Esei
    Commented el 28 oct. 2018 a las 19:41
  • Al correr el código: .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´ Commented el 29 oct. 2018 a las 0:02
  • Agrego que tengo esta declaración: Dim ws As Excel.Worksheet Set ws = wb.Sheets("qry_123") Por lo anterior, probé este código: `.SeriesCollection(2).Values = "=" & ws & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("A2").End(xlDown).Row)).Address(True, True, xlA1, False)´ Ocurre el Error 438 en tiempo de ejecusión: El Objeto no admite esta propiedad o método Marca de amarillo todo el Código. Commented el 29 oct. 2018 a las 0:03
  • Finalmente, al usar este código: `.SeriesCollection(2).Values = "=" & ws.Range("qry_123") & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("A2").End(xlDown).Row)).Address(True, True, xlA1, False)´ Muestra el Error 13 en tiempo de ejecusión: No coinciden los tipos. Toda la línea se colorea de amarillo. Aprecio su ayuda para escribir el código correctamente. Commented el 29 oct. 2018 a las 0:04
  • Tienes que usar 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.
    – Esei
    Commented el 29 oct. 2018 a las 0:20

1 respuesta 1

2

En el resto tienes que adaptar el código según la columna:

.SeriesCollection.NewSeries
        .SeriesCollection(1).Values = "=" & ws.Name & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("A2").End(xlDown).Row, 1)).Address(True, True, xlA1, False)
        .SeriesCollection(2).XValues = "=" & ws.Name & "!" & ws.Range(Cells(2, 1), Cells(ws.Range("B2").End(xlDown).Row, 1)).Address(True, True, xlA1, False)

    .SeriesCollection.NewSeries
    .SeriesCollection(2).Values = "=" & ws.Name & "!" & ws.Range(Cells(2, 3), Cells(ws.Range("C2").End(xlDown).Row, 1)).Address(True, True, xlA1, False)
    .SeriesCollection(2).XValues = "=" & ws.Name & "!" & ws.Range(Cells(2, 3), Cells(ws.Range("C2").End(xlDown).Row, 1)).Address(True, True, xlA1, False)

Adapta el código a tus necesidades y asegurate de que estás llamando a las celdas y columnas que quieres.

3
  • Sánchez E-Infante. Voy a probar las lineas de código que me recomiendas. Te aviso. Aprecio tu ayuda. Commented el 1 nov. 2018 a las 1:11
  • Al fin pude adaptar el Código que me recomendaste. Corre beien. Saludos. Commented el 2 nov. 2018 a las 1:15
  • ¡Me alegra que funcione!
    – Esei
    Commented el 2 nov. 2018 a las 8:45

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.