Hallo Leute,
wie am Bild zu sehen, möchte ich ein Chart mit 12 Elementen befüllen (in meinem Fall 12 Monate).
Leider wird unterhalb der Balken nur jedes zweite Monat angezeigt (als Text). Unabhängig von der Pixelbreite des Charts.
Wenn ich nur 9 Monate aufliste, dann wird jedes Monat als Text angezeigt.
Wie bekomme ich nun alle 12 Monate unten als Text angezeigt?
wie am Bild zu sehen, möchte ich ein Chart mit 12 Elementen befüllen (in meinem Fall 12 Monate).
Leider wird unterhalb der Balken nur jedes zweite Monat angezeigt (als Text). Unabhängig von der Pixelbreite des Charts.
Wenn ich nur 9 Monate aufliste, dann wird jedes Monat als Text angezeigt.
Wie bekomme ich nun alle 12 Monate unten als Text angezeigt?
VB.NET-Quellcode
- Public Sub GrafischerJahresVergleich()
- Me.Cursor = Cursors.WaitCursor
- With Chart1
- .Series.Clear()
- .ChartAreas("ChartArea1").AxisX.MajorGrid.LineColor = Color.WhiteSmoke
- .ChartAreas("ChartArea1").AxisY.MajorGrid.LineColor = Color.WhiteSmoke
- Dim JahrString As String = ""
- For JahresZaehler As Integer = 0 To 4
- JahrString = (Year(Now) - JahresZaehler).ToString
- .Series.Add(JahrString)
- .Series(JahrString).IsValueShownAsLabel = True
- .Series(JahrString).LabelToolTip = "Umsätze " + JahrString
- .Series(JahrString).SmartLabelStyle.Enabled = False
- .Series(JahrString).LabelAngle = -90
- Select Case JahresZaehler
- Case 0
- .Series(JahrString).LabelForeColor = Color.LimeGreen
- .Series(JahrString).Color = Color.LimeGreen
- Case 1
- .Series(JahrString).LabelForeColor = Color.FromArgb(64, 64, 64)
- .Series(JahrString).Color = Color.FromArgb(64, 64, 64)
- Case 2
- .Series(JahrString).LabelForeColor = Color.Tomato
- .Series(JahrString).Color = Color.Tomato
- Case 3
- .Series(JahrString).LabelForeColor = Color.Goldenrod
- .Series(JahrString).Color = Color.Goldenrod
- Case 4
- .Series(JahrString).LabelForeColor = Color.Gray
- .Series(JahrString).Color = Color.Gray
- End Select
- For i As Integer = 1 To 12
- .Series(JahrString).Points.AddXY(MonthName(i, True), CLng(1020 * i * (JahresZaehler + 1)))
- Next i
- Next JahresZaehler
- End With
- Me.Cursor = Cursors.Default
- End Sub
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at