Hola, buenos días, tengo una gráfica de Excel generada dinámicamente desde una aplicación en Vb.net, el problema que tengo es que los datos del eje X al ser fechas se solapan, por lo que quiero ponerlos en vertical en vez de horizontal.
El código del gráfico es:
'CREAMOS EL GRÁFICO
Dim chartPage As Chart
Dim exCharts As ChartObjects = .ActiveSheet.ChartObjects
Dim myChart As ChartObject = exCharts.Add(462, 2, 416, 400)
chartPage = myChart.Chart
'DAMOS VALORES A LOS EJES DE LA GRÁFICA
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")
chartPage.ChartType = Excel.XlChartType.xlXYScatterLinesNoMarkers
chartPage.HasTitle = True
chartPage.ChartTitle.Characters.Text = "TENSIÓN MENSUAL"
chartPage.ChartTitle.Position = XlChartElementPosition.xlChartElementPositionAutomatic
chartPage.HasLegend = True
chartPage.Legend.Position = XlLegendPosition.xlLegendPositionRight
¿Puede alguien echarme una mano?. Gracias.