Ando tratando de poner títulos a cada barra de un gráfico que se crea a través de una consulta. El código que llevo es este:
Código vb:
Y no entiendo como poner El título a cada barra en la parte de abajo, aclarando que el título es texto y en algunos casos bastante extenso como por ejemplo " TRASPONER LUZ EN ROJO"Ver original
TablaDatos = New DataTable _adaptador.Fill(TablaDatos) Dim ds As New DataSet If TablaDatos.Rows.Count > 0 Then Dim ChartArea1 As ChartArea = New ChartArea() Dim Legend1 As Legend = New Legend() Dim Series1 As Series = New Series() Dim Chart1 = New Chart() Me.Controls.Add(Chart1) 'Chart1.Series("Series1").SmartLabelStyle.Enabled = True ChartArea1.Name = "ChartArea1" Chart1.ChartAreas.Add(ChartArea1) Legend1.Name = "Legend1" Chart1.Legends.Add(Legend1) Chart1.Location = New System.Drawing.Point(10, 150) 'UBICACION EN PANTALLA Chart1.Size = New System.Drawing.Size(1000, 550) ' TAMAÑO Chart1.Name = "Chart1" Series1.ChartArea = "ChartArea1" Series1.Legend = "Legend1" Series1.Name = "Series1" Chart1.Series.Add(Series1) Chart1.TabIndex = 1 Chart1.Text = "Chart1" Chart1.Series(0).IsValueShownAsLabel = True Chart1.Series(0).Font = New Font("Times", 15) 'TIPOGRAFIA LABELS BARRAS Chart1.ChartAreas(0).AxisX.LabelStyle.Font = New Font("Verdana", 8) 'TIPOGRAFIA LABELS X Chart1.Series("Series1").YValueMembers = "CANTIDAD" 'ALTURA BARRAS Chart1.DataSource = TablaDatos Else MsgBox("NO SE ENCONTRARON DATOS, VUELVA A INTENTARLO") End If
Alguien me podría ayudar con el nombre del atributo que me deje hacerlo?
Muchas Gracias!!!