Actualizar gráfica con macro cuyos datos se encuen
Publicado por Alex (1 intervención) el 29/10/2009 10:34:30
Intento realizar una macro que pasandole unos valores mediante parametros, actualice un gráfico.
La particualridad es que gráfico y datos (valores) estan en Hojas distintas
El grafico se llama Gráfico 6, y se encuentra en la Hoja2
Los valores se encuetran en la Hoja1
Valores (eje y) en la columna D , filas de la 12 a la 23
Valores eje x en la columna C, filas de la 12 a la 23
Sub Macro1()
Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = "=Hoja1!R12C2:R20C2"
ActiveChart.SeriesCollection(1).Values = "=Hoja1!R12C3:R20C3"
End Sub
De este modo funciona la macro.
La implementación que querría sería algo así:
Sub Macro2()
cel1 = Cells(12, 3).Address
cel2 = Cells(20, 3).Address
cel1x = Cells(12, 2).Address
cel2x = Cells(20, 2).Address
Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6").Activate
ActiveChart.SeriesCollection(1).Select
La particualridad es que gráfico y datos (valores) estan en Hojas distintas
El grafico se llama Gráfico 6, y se encuentra en la Hoja2
Los valores se encuetran en la Hoja1
Valores (eje y) en la columna D , filas de la 12 a la 23
Valores eje x en la columna C, filas de la 12 a la 23
Sub Macro1()
Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).XValues = "=Hoja1!R12C2:R20C2"
ActiveChart.SeriesCollection(1).Values = "=Hoja1!R12C3:R20C3"
End Sub
De este modo funciona la macro.
La implementación que querría sería algo así:
Sub Macro2()
cel1 = Cells(12, 3).Address
cel2 = Cells(20, 3).Address
cel1x = Cells(12, 2).Address
cel2x = Cells(20, 2).Address
Sheets("Hoja2).Select
ActiveSheet.ChartObjects("Gráfico 6").Activate
ActiveChart.SeriesCollection(1).Select
Valora esta pregunta


0