Datenreihenbeschriftung Bubble-Charts
19.11.2004 13:34:42
René
Ich versuche mittesl VBA-Code die Beschriftung der Datenreihen aus den Zellen zu lesen und in die aktuelle Bubble-Charts jeweils anzuzeigen.
Wenn ich den VBA-Code ausführe erscheint nur die erste Beschriftunh "Messung A" in der Bubble-Charts.
Hier der VBA-Code:
Sub DatenbeschriftungAusZellen()
Dim Datenreihe As Series
Dim Punkte As Points
Dim Punkt As Point
Dim i As Integer
Range("J4").Select
Set Datenreihe = _
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
Datenreihe.HasDataLabels = True
Set Punkte = Datenreihe.Points
For Each Punkt In Punkte
i = i + 1
Punkt.DataLabel.Text = ActiveCell.Offset(0, i).Value
Punkt.DataLabel.Font.Bold = True
Next Punkt
ActiveSheet.ChartObjects(1).Select
With ActiveChart
.HasTitle = True
.ChartTitle.Text = Range("A2").Value
End With
End
Sub
Als Anhang habe ich die Datei angefügt.
<a href="https://www.herber.de/bbs/user/13679.xls">https://www.herber.de/bbs/user/13679.xls</a>
Woran kann mein Problem liegen?
Vielen herzlichen Dank für die Unterstützung.
Beste Grüsse
René