DataLabel bei Charts automatisiert über VBA anpassen...

  • Excel

    DataLabel bei Charts automatisiert über VBA anpassen...

    Hallo liebe Community!

    Ich habe folgende Situation:

    Ich lasse aus einer Datentabelle heraus ein Chart erstellen. Dieses Chart (Grafik5), hat 2 Datenreihen:
    Grafik5.SeriesCollection(1)
    und
    Grafik5.SeriesCollection(2)

    Für mich ist zur Darstellung in einem Balkendiagramm nur Grafik5.SeriesCollection(1) wichtig. Grafik5.SeriesCollection(2) hingegen, zeigt mir %-Zahlen, die ich über dem jeweiligen Balken von Grafik5.SeriesCollection(1), als Datenbeschriftung, positionieren möchte!

    Jetzt habe ich das schon mal soweit, dass ich über

    Grafik5.ChartGroups(1).Overlap = 100

    beide Datenreihen überlappen lasse und dann sage ich einfach, dass Grafik5.SeriesCollection(2), keine Füllung und keine Linienfarbe haben soll:

    Grafik5.SeriesCollection(2).Format.Fill.Visible = msoFalse
    Grafik5.SeriesCollection(2).Format.Line.Visible = msoFalse

    Somit, ist Grafik5.SeriesCollection(2) "unsichtbar" und dann lasse ich mir die Datenbeschriftung anzeigen....

    Der Code bisher sieht mal so aus...:

    Visual Basic-Quellcode

    1. Private Sub CommandButton5_Click()
    3. Dim Grafik5 As Chart
    4. Dim spaltindex As Long
    6. spaltindex = Tabelle7.Cells(1, Columns.Count).End(xlToLeft).Column
    8. Set Grafik5 = Charts.Add
    10. 'Werte von IH-Gesamtkosten
    11. Grafik5.SeriesCollection.NewSeries
    12. Grafik5.SeriesCollection(1).Name = Tabelle7.Cells(120, 4)
    13. Grafik5.SeriesCollection(1).Values = Tabelle7.Range(Tabelle7.Cells(120, 5), Tabelle7.Cells(120, spaltindex))
    14. Grafik5.SeriesCollection(1).XValues = Tabelle7.Range(Tabelle7.Cells(1, 5), Tabelle7.Cells(1, spaltindex))
    16. 'Werte von %-Fehler...
    17. Grafik5.SeriesCollection.NewSeries
    18. Grafik5.SeriesCollection(2).Name = Tabelle7.Cells(121, 4)
    19. Grafik5.SeriesCollection(2).Values = Tabelle7.Range(Tabelle7.Cells(121, 5), Tabelle7.Cells(121, spaltindex))
    20. Grafik5.SeriesCollection(2).XValues = Tabelle7.Range(Tabelle7.Cells(1, 5), Tabelle7.Cells(1, spaltindex))
    22. With Grafik5
    23. .ChartType = xlColumnClustered
    24. End With
    26. 'Grafik-Layout 5 (--> mit Datentabelle etc.)
    27. Grafik5.ApplyLayout (5)
    28. Grafik5.Axes(xlValue).AxisTitle.Delete
    29. Grafik5.ChartTitle.Text = "IH-Gesamtkosten über die Jahre"
    30. Grafik5.ChartTitle.Format.TextFrame2.TextRange.Characters.Text = "IH-Gesamtkosten über die Jahre"
    31. With Grafik5.ChartTitle.Format.TextFrame2.TextRange.Characters(1, 19).ParagraphFormat
    32. .TextDirection = msoTextDirectionLeftToRight
    33. .Alignment = msoAlignCenter
    35. End With
    37. 'Datenreihen einfärben etc...
    38. With Grafik5.SeriesCollection(1).Format.Fill
    39. .Visible = msoTrue
    40. .ForeColor.ObjectThemeColor = msoThemeColorAccent3
    41. .ForeColor.TintAndShade = 0
    42. .ForeColor.Brightness = -0.25
    43. .Transparency = 0
    44. .Solid
    45. End With
    47. Grafik5.ChartGroups(1).Overlap = 100
    48. Grafik5.SeriesCollection(2).Format.Fill.Visible = msoFalse
    49. Grafik5.SeriesCollection(2).Format.Line.Visible = msoFalse
    50. Grafik5.SeriesCollection(2).ApplyDataLabels
    51. Grafik5.SeriesCollection(2).DataLabels.Select
    52. Grafik5.SeriesCollection(2).Points(1).DataLabel.Left = 112.656
    53. Grafik5.SeriesCollection(2).Points(1).DataLabel.Top = 100
    54. Grafik5.SeriesCollection(2).Points(2).DataLabel.Top = 100
    55. With Grafik5.SeriesCollection(2).Points(1).DataLabel.Format.TextFrame2.TextRange.Font.Fill
    56. .Visible = msoTrue
    57. .ForeColor.RGB = RGB(255, 0, 0)
    58. .Transparency = 0
    59. .Solid
    60. End With
    62. End Sub



    So.... Nun zum eigentlichen Knackpunkt...

    1.) Automatisierte Positionierung der Datenbeschriftungen:
    Man kann ja über:

    Visual Basic-Quellcode

    1. Grafik5.SeriesCollection(2).Points(1).DataLabel.Left =...
    2. Grafik5.SeriesCollection(2).Points(1).DataLabel.Top = ..


    VBA sagen, wo die einzelnen Datenbeschriftungswerte positioniert werden sollen....
    mit .Points(1) wird die erste Beschriftung vom ersten "x-Wert" positioniert usw... --> jetzt möchte ich aber keine absolute Position angeben... sondern...:
    Ich will, über VBA die Position selbst bestimmen lassen! z.b. jetzt für den ersten Beschriftungswert:
    Excel, soll schauen, bis wohin sich der Balken von Grafik5.SeriesCollection(1), beim ersten x-Wert, hin erstreckt und soll dann darüber, die via Grafik5.SeriesCollection(2).Points(1).DataLabel.Top die Beschriftung positionieren!
    --> Somit:
    Ich würde gerne wissen, wie ich das anstellen kann, dass ich die "Endposition" (sowohl .Top als auch .Left - Wert) von dem gezeichneten Balken herausbekomme.. sodass ich dann dementsprechend die Position setzen kann....
    Und:
    Das soll dann auch für alle Punkte funktionieren... somit... wenn ich beispielsweise 10 x-Werte habe... und somit eigentlich Points(1).DataLabel.Top bis Points(10).DataLabel.Top habe... dann muss das für alle 10 laufen...


    2.) Automatisierte Formatierung der Datenbeschriftung, abhängig vom Wert...
    über:

    Visual Basic-Quellcode

    1. With Grafik5.SeriesCollection(2).Points(1).DataLabel.Format.TextFrame2.TextRange.Font.Fill
    2. .Visible = msoTrue
    3. .ForeColor.RGB = RGB(255, 0, 0)
    4. .Transparency = 0
    5. .Solid
    6. End With


    kann ich ja die Schriftfarbe setzen... in dem Fall, ist es einfach rot....

    Jetzt möchte ich aber die Formatierung abhängig vom jeweiligen Wert machen! Somit, soll die Schriftfarbe Schwarz sein, wenn der jeweilige Wert 0 ist - und sonst soll die Schriftfarbe rot sein, wenn der jeweilige Wert >0 ist!

    Damit ich das mit einer IF-Then Anweisung hinbekomme... muss ich aber Excel irgendwie mitteilen können, dass er drauf schauen soll...

    Somit:

    Wie kann ich das in VBA umsetzen, dass die Schriftfarbe abhängig vom "Y-Wert" der Datenreihe ist??




    Bin echt dankbar über Vorschläge und Lösungsansätze...



    VG Tim


    NACHTRAG!!:

    Mir ist gerade die Idee gekommen... ich kann mir ja auch einfach die Datenbeschriftung von Grafik5.SeriesCollection(1) anzeigen lassen....
    dann... mir diese Positionswerte abspeichern (in eine Variable...) lassen...
    dann... die Datenbeschriftung von Grafik5.SeriesCollection(1) wieder entfernen...
    und dann die Datenbeschriftung von Grafik5.SeriesCollection(2) mit diesen Werten wieder hinzufügen....


    ABER!
    Dann muss ich immer noch wissen, wie ich die Positionswerte von Grafik5.SeriesCollection(1) auslesen kann.... und wie ich das abspeichere? Array?

    DANKE!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ereza“ ()

Facebook
Telefonspende