Autor Tema: ¿Como cambiar la orientación de las etiquetas del eje X en grafica Excel?  (Leído 1711 veces)

0 Usuarios y 1 Visitante están viendo este tema.

solilopi

  • Bit
  • Mensajes: 8
  • Reputación: +0/-0
    • Ver Perfil
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:
Código: [Seleccionar]

'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.