Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Dar valor fecha a eje X en grafico excel desde Vb.net

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

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 229
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 229
Ha disminuido 1 puesto en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar