Visual Basic.NET - Dar valor fecha a eje X en grafico excel desde Vb.net

Val: 229

Dar valor fecha a eje X en grafico excel desde Vb.net

Publicado por José Vicente (113 intervenciones) el 20/10/2020 11:44:05

Hola de nuevo, he conseguido ya ubicar el gráfico en una nueva página, el problema que se me presenta es en los valores del eje X, quiero poner los de la columna fecha (A) de la hoja pero no consigo hacerlo.
El código que tengo hasta ahora es:

'CREAMOS EL GRÁFICO

Dim chartPage As Excel.Chart

Dim exCharts As Excel.ChartObjects

Dim myChart As Excel.ChartObject

Dim chartRange As Excel.Range

exCharts = .ActiveSheet.ChartObjects

myChart = exCharts.Add(401, 2, 418, 300)

chartPage = myChart.Chart

chartRange = .ActiveSheet.Range("B1", "E32")

chartPage.SetSourceData(Source:=chartRange)

chartPage.ChartType = Excel.XlChartType.xlXYScatterLinesNoMarkers

chartPage.HasTitle = True

chartPage.ChartTitle.Characters.Text = "TENSIÓN MENSUAL"

chartPage.HasLegend = True

chartPage.Legend.Position = XlLegendPosition.xlLegendPositionBottom

El resultado es el de la imagen. ¿Cómo podría hacerlo? Gracias.

Grafico.rar(45,4 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 11

Val: 229

Dar valor fecha a eje X en grafico excel desde Vb.net

Publicado por José Vicente (113 intervenciones) el 25/10/2020 21:00:04

Hola, solucionado el tema de dar valor de fecha al eje X, no consigo de ninguna de las maneras, cambiar la orientación de los valores del eje X a vertical, ya que en horizontal se solapan y tampoco consigo cambiar los valores máximo y mínimo del eje Y.
El código final me ha quedado:

'CREAMOS EL GRÁFICO

            Dim chartPage As Chart

            Dim exCharts As ChartObjects = .ActiveSheet.ChartObjects

            Dim myChart As ChartObject = exCharts.Add(462, 2, 418, 400)

            chartPage = myChart.Chart

            Dim coleccion As SeriesCollection = chartPage.SeriesCollection

            Dim serie1, serie2, serie3, serie4 As Excel.Series

            serie1 = coleccion.NewSeries()

            serie1.Name = .ActiveSheet.Range("B1").Value

            serie1.XValues = .ActiveSheet.Range("A2:A32")

            serie1.Values = .ActiveSheet.Range("B2:B32")

            serie2 = coleccion.NewSeries()

            serie2.Name = .ActiveSheet.Range("C1").Value

            serie2.XValues = .ActiveSheet.Range("A2:A32")

            serie2.Values = .ActiveSheet.Range("C2:C32")

            serie3 = coleccion.NewSeries()

            serie3.Name = .ActiveSheet.Range("D1").Value

            serie3.XValues = .ActiveSheet.Range("A2:A32")

            serie3.Values = .ActiveSheet.Range("D2:D32")

            serie4 = coleccion.NewSeries()

            serie4.Name = .ActiveSheet.Range("E1").Value

            serie4.XValues = .ActiveSheet.Range("A2:A32")

            serie4.Values = .ActiveSheet.Range("E2:E32")

            exCharts = .ActiveSheet.ChartObjects

            chartPage.ChartType = Excel.XlChartType.xlXYScatterLinesNoMarkers

            chartPage.HasTitle = True

            chartPage.ChartTitle.Characters.Text = "TENSIÓN MENSUAL"

            chartPage.HasLegend = True

            chartPage.Legend.Position = XlLegendPosition.xlLegendPositionBottom

¿Puede alguien echarme una mano?. Gracias.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar